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PREFAZIONE 


Il presente volume è dedicato ai file di dati su dischetto e su cassetta. Esso fa 
seguito al primo volume, dedicato al BASIC, e a quello faccio spesso riferimento, 
senza ripetere cose già dette. 

Il libro si articola in tre capitoli: il primo di carattere generale, il secondo 
dedicato alla cassetta e il terzo al dischetto. Sono presenti numerosi esempi, 
realizzati con la tecnica dei sottoprogrammi, per consentire al lettore di operare 
facilmente le modifiche necessarie per adattarli alla risoluzione dei suoi problemi. 

I file sono trattati servendosi esclusivamente del linguaggio BASIC, e, mi 
sembra interessante mostrare, come si possano capire molte cose sul funzionamen¬ 
to delle periferiche, anche usando solo un linguaggio evoluto. 

Nelle tre appendici faccio un breve cenno ad alcuni programmi in commercio; 
si tratta di pacchetti formati da programmi scritti in linguaggio ASSEMBLER. Essi 
risultano indubbiamente più veloci ed efficienti dei programmi scritti in BASIC. 

Mi sembra importante sottolineare che, anche coloro che si dedicano con 
interesse allo studio della programmazione, è bene si abituino ad usare il software 
disponibile sul mercato. Si trovano ottimi programmi, sia tra gli applicativi, che tra 
quelli di aiuto nella programmazione come TOOL 64 e THE MANAGER, distri¬ 
buiti dalla COMMODORE. Non posso non accennare agli utilissimi programmi di 
elaborazione dei testi (WORD PROCESSING), e in particolare a EASY SCRIPT, 
diponibile per il COMMODORE 64. 

La filosofia che ho applicato nella stesura di questo libro è sempre la stessa. 
Dopo aver capito i principi fondamentali che stanno alla base dell’informatica, 
bisogna convalidare i concetti lavorando su un calcolatore. 

Per lavorare su un calcolatore ci vuole pazienza e curiosità, ma vale la pena di 
provare, perchè si ricavano molte soddisfazioni. Inoltre, è bene ricordare che, 
tramite la “macchina”, si è sempre in contatto con altri “umani”, coloro che ne 
hanno progettato l’hardware e il software e sono riusciti a realizzarla. 


(Rita Bonelli) 
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L’autrice ringrazia James Bachmann, Amministratore Delegato, e Sergio Messa, 
Direttore Generale della Commodore Italiana s.p.a., per avere messo a disposizio¬ 
ne le apparecchiature e la documentazione necessarie alla realizzazione dell’opera. 


Tutti i programmi che compaiono nel testo sono stati provati sul calcolatore e sono 
stati memorizzati su un dischetto. L’editore mette in vendita questo libro in due 
confezioni: 

• libro + dischetto, 

• solo libro. 

Il dischetto dei programmi del libro viene fornito dall’editore anche a richiesta. 
Dato che i programmi relativi alla cassetta sono pochi, non è stata preparata una 
cassetta registrata. Tali programmi sono registrati sul dischetto. 


I numeri esadecimali che compaiono nel testo, salvo avviso contrario, sono con¬ 
traddistinti da una H finale. 


VI 



CAPITOLO 1 


I FILE 


1.1 Cosa è un file 

Un file è un insieme di registrazioni, che, per un motivo qualunque, si desidera 
raggruppare. 

Le registrazioni possono essere effettuate su un qualunque supporto fisico; i più 
comuni supporti fisici sono: 

1) fogli di carta, 

2) nastri di carta, 

3) nastri magnetici, 

4) dischi magnetici, 

5) tamburi magnetici. 

Sul supporto di tipo 1 le registrazioni avvengono sotto forma di caratteri diretta- 
mente leggibili, o disegni ottenuti per punti. 

Sul supporto di tipo 2 le registrazioni avvengono sotto forma di fori, che rappresen¬ 
tano i caratteri in un codice. Se si è molto pazienti, tali registrazioni possono anche 
essere lette direttamente. 

Sui supporti di tipo 3, 4 e 5 le registrazioni sono magnetiche e quindi non leggibili 
direttamente. 

In questo libro ci occupiamo dei file, gestiti dal linguaggio BASIC, che si servono di 
supporti fisici del tipo 3, cassette magnetiche, e del tipo 4, floppy disk (dischetti). 

Caratteristica di queste registrazioni è che si mantengono nel tempo a meno che non 
si intervenga su di esse in modo distruttivo. 

Non consideriamo file le registrazioni nella memoria di lavoro del calcolatore, e, in 
particolare, nella memoria dedicata al video, in quanto hanno la caratteristica di 
essere temporanee. Abbiamo, però, visto nel primo volume che anche il video può 
essere gestito come un file. 

E ovvio che tutto quello che diventa registrazione su un file, qualunque sia il 
supporto, transita dalla memoria del calcolatore. 
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I dati, presenti nella memoria del calcolatore, sono identificabili per mezzo dei 
nomi delle variabili che li contengono. 

Le operazioni di SCRITTURA SU FILE da programma usano i nomi delle 
variabili per far uscire i dati o per prepararli ad uscire. 

I dati, letti dall'esterno nella memoria del calcolatore, sono identificabili per mezzo 
dei nomi delle variabili che li ricevono. Le operazioni di LETTURA DA FILE 
usano i nomi delle variabili per far entrare i dati o per renderli disponibili dopo che 
sono entrati in memoria. 

Gli elementi in gioco in questo tipo di operazioni sono quattro: 

A) le VARIABILI che contengono o conterranno i dati, 

B) il BUFFER, una zona di memoria di raccolta e transito per i dati, 

C) il SUPPORTO fisico che contiene o conterrà le registrazioni, 

D) il SOFTWARE DI GESTIONE. 

Abbiamo già visto, nel volume dedicato al BASIC, come viene gestito il BUFFER 
della stampante. Riepiloghiamo qui brevemente l’argomento: 

• nella stampante è contenuta una zona di memoria RAM che viene usata come 
buffer, 

• il programma manda dati alla stampante servendosi dei nomi delle variabili, 

• il buffer via via si riempie, 

• il buffer si svuota, cioè avviene fisicamente la stampa, quando è pieno oppure 
quando il programma invia un apposito carattere di controllo o chiude la trasmis¬ 
sione, 

• il calcolatore invia i dati alla stampante carattere per carattere in codice ASCII, 

• il software di gestione per l’invio dei dati sta nella ROM del calcolatore, 

• il software necessario a trasformare i codici presenti nel buffer in caratteri 
stampati sta nella ROM della stampante. 
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Cose analoghe succedono con le periferiche, argomento della presente trattazione. 

Per il registratore a nastro il BUFFER sta nella memoria RAM del calcolatore e il 
software necessario alla trasmissione sta nella ROM del calcolatore. 

Il programma SCRIVE il contenuto delle variabili, i dati si ammucchiano nel 
buffer, il buffer viene fisicamente trasferito sul nastro (che si mette in movimento 
prima dell’inizio dell’operazione) quando esso è pieno, oppure quando il program¬ 
ma chiude la trasmissione. Il programma LEGGE i dati nelle variabili prelevandoli 
dal buffer, il buffer viene riempito alla prima lettura e tutte le volte che si cerca di 
leggere un carattere, dopo l’ultimo che esso contiene. 

Le operazioni di lettura e scrittura del nastro avvengono in modo trasparente per 
l’utente; egli si accorge che sta avvenendo fisicamente un’operazione solo se guarda 
il nastro e lo vede in movimento. 

Per l’unità a dischi, invece, il sistema operativo del calcolatore provvede solo 
all’invio dei dati o alla loro ricezione carattere per carattere (byte a byte) e alla 
gestione di una tabella relativa ai file aperti. Tale tabella contiene informazioni su 
tutti i file aperti sulle periferiche collegate al calcolatore. Il buffer e il software 
necessario alla gestione dei dischetti stanno rispettivamente nella RAM e nella 
ROM dell’unità a dischi. L’utente non si accorge quando i dati viaggiano tra il 
calcolatore e l’unità a dischi, mentre si accorge che sta avvenendo fisicamente 
un’operazione di lettura o scrittura dal fatto che si accende la spia rossa luminosa 
sull’unità. Il software necessario alla gestione delle operazioni disco prende il nome 
di DOS (Disk Operating System). 

Riepiloghiamo nella figura che segue le relazioni che legano gli elementi sopra 
discussi. 
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Figura 1.1 SOFTWARE, VARIABILI, BUFFER, SUPPORTO 


In un file dobbiamo sempre distinguere l’aspetto fisico da quello logico. La 
STRUTTURA FISICA di un file dipende dal supporto di registrazione, dalla 
periferica e dal software di gestione a livello di linguaggio macchina (SOFTWARE 
DI BASE). La STRUTTURA LOGICA, che si sovrappone a una definita struttura 
fisica, dipende dal programma che crea il file. La struttura fisica in generale consiste 
nel fatto di potere e dovere scrivere un blocco fisico di byte di certe dimensioni. 
Per BLOCCO FISICO si intende la quantità di byte che viene fisicamente trasferita 
tra supporto e calcolatore, o viceversa, in una operazione di Input o Output. Per 
BLOCCO LOGICO si intende, invece, quel gruppo di dati che interessa il program¬ 
ma in un certo momento; il blocco logico può coincidere con un blocco fisico, 
costituirne una parte, o anche essere formato da più di un blocco fisico. 
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Vediamo ora la terminologia relativa all’aspetto LOGICO dei FILE. Le singole 
registrazioni, che si susseguono nel file e hanno un significato come gruppo di dati, 
si chiamano RECORD (blocco logico). In generale un record è composto da più 
dati, si dice che un record è composto da CAMPI (FIELD). 



/ FILE A 


Figura 1.2 FILE, RECORD, CAMPI 


Ogni campo è contraddistinto da un nome, per la logica del programma; come 
campo Cognome, campo Nome, campo Indirizzo, ecc.. All’interno del programma 
ad ogni campo corrisponde il nome di una variabile. Ogni file è contraddistinto da 
un nome, che lo individua. In generale al record non è attribuito un nome specifico, 
ma si può fare riferimento ad un record con il numero d’ordine con il quale esso 
compare nel file; primo record, secondo record, ecc. 

Un file può essere formato da una serie di record, aventi tutti la stessa struttura, 
oppure da due o più strutture diverse di record che si ripetono con un certo ordine. 
Inoltre i record possono essere tutti della stessa lunghezza oppure di lunghezza 
variabile. I record di lunghezza fissa sono in generale formati da campi di lunghezza 
fissa. I record di lunghezza variabile possono essere formati da campi di lunghezza 
variabile, oppure da campi di lunghezza fissa, ma che si ripetono in numero diverso. 

Nel primo volume, a proposito della stampante, non si è esplicitamente parlato di 
file. Vediamo ora come si può applicare la terminologia dei file alla stampa su carta. 
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Un qualunque tabulato è un file; ogni linea di stampa può essere considerata un 
record logico. Una riga di stampa (o il contenuto del buffer) può essere vista come 
un blocco fisico. Nella lista su carta di un programma BASIC ogni linea di 
programma può essere considerata un record logico di lunghezza variabile, forma¬ 
to da campi di lunghezza variabile. In un elenco ordinato di nomi e indirizzi ogni 
argomento può essere pensato come un record formato dai campi; cognome, nome, 
indirizzo, ecc.. Qualora il prospetto venga stampato ponendo sulla prima linea il 
cognome e nome e sulla seconda l’indirizzo, si può pensare a due tipi record che si 
ripetono in coppia. 


Per ogni file si definisce il TIPO e il METODO DI ACCESSO. 

Si definisce il TIPO di un file in dipendenza dal modo come il file viene costruito. 
Noi ci occupiamo dei tipi di file consentiti per il COMMODORE 64, in BASIC, e 
precisamente dei: 


• File SEQUENZIALI, 

• File RANDOM, 

• File RELATIVI. 


Un file può consistere in un insieme di dati, tipo gli elementi di un vettore di numeri, 
registrati uno dopo l’altro. Si tratta di una lista di dati e il file viene definito di TIPO 
SEQUENZIALE. Nell’esempio riportato ogni numero è un record del file, quindi il 
record è costituito da un solo campo. Caratteristica del file sequenziale è che ogni 
record, salvo il primo e l’ultimo, è preceduto e seguito da un altro record. Il file 
sequenziale si costruisce cominciando a scrivere il primo record e procedendo in 
sequenza. 

Abbiamo un file di TIPO RANDOM quando i record vengono scritti facendo 
riferimento all’indirizzo del blocco fisico dove sono registrati. In realtà la termino¬ 
logia, adottata nella letteratura della casa costruttrice, che nel seguito useremo 
anche noi, può NON DARE una chiara visione di questo tipo di file. A noi sembra 
che la definizione più corretta sia; FILE AD ACCESSO DIRETTO PER MEZZO 
DELL’INDIRIZZO FISICO. Approfondiremo l’argomento nel Capitolo 3, chia¬ 
rendo la relazione che sussiste, in questo caso, tra record logico e blocco fisico. I file 
random si costruiscono scrivendo i record come si vuole (nel rispetto delle regole 
del particolare file che si tratta), ma senza l’obbligo della sequenzialità, nel senso 
visto sopra. 
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Abbiamo un file DI TIPO RELATIVO quando i record sono scritti citando il loro 
numero d’ordine nel file: primo, secondo, quinto, ventesimo, terzo, ecc., senza 
l’obbligo di rispettare un ordine sequenziale. Riprendendo la definizione preceden¬ 
te possiamo definire questo tipo come: FILE AD ACCESSO DIRETTO PER 
MEZZO DELL’INDIRIZZO LOGICO. 

Il tipo di un file viene definito al momento della sua creazione e non è modificabile. 

Per METODO DI ACCESSO si intende il modo nel quale si può accedere ai record 
che compongono il file. I metodi di accesso disponibili sono due: 

• Accesso SEQUENZIALE, 

• Accesso DIRETTO. 

Il metodo di accesso sequenziale consiste nella lettura dei record uno dopo l’altro, 
partendo dal primo; esso si può usare per tutti i tre tipi di file sopra descritti. Il 
metodo di accesso diretto, che consiste nella lettura di un ben determinato record, 
indipendentemente dalla lettura precedente, si può usare solo per i file random e per 
i file relativi. 

Sulla cassetta è possibile solo la gestione dei file sequenziali. Sui dischetti sono 
gestibili i tre tipi di file. 

Le registrazioni magnetiche avvengono un byte alla volta, si ha la trasmissione di 
sequenze di byte. Ogni byte contiene un codice numerico che può variare da 0 a 255, 
e che viene abitualmente definito carattere. Anche i dati numerici, che all’interno 
della memoria del calcolatore sono memorizzati come numeri interi o floating- 
point, sono trasformati in uscita in stringhe di caratteri. Una trasformazione 
inversa avviene in fase di lettura dal supporto magnetico verso la memoria del 
calcolatore. Ogni stringa di caratteri, che rappresenta un dato, deve terminare con 
un carattere separatore riconoscibile dal sistema. 


1.2 Operazioni per la gestione dei file 

Il programma BASIC per gestire un file deve svolgere le seguenti operazioni: 

1) Aprire la comunicazione con il file, 

2) Leggere o scrivere il file, 

3) Chiudere la comunicazione con il file. 
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L’operazione 1) stabilisce la comunicazione con la periferica e con un determinato 
file, per effettuare un certo tipo di operazione. Si tratta dell’operazione OPEN; la 
parola chiave è seguita da alcuni parametri, che analizziamo separatamente per la 
cassetta e per il dischetto nei due capitoli seguenti. Dopo la OPEN i dati relativi al 
file aperto sono memorizzati nella RAM del calcolatore nella tabella per la gestione 
dei file. Il byte 152 (0098H) contiene il numero dei file aperti (LDTND), puntatore 
alla tabella dei file. La tabella di gestione dei file si trova a partire dal byte 601 
(0259H); essa è formata da tre vettori di 10 byte ciascuno. La struttura è la seguente: 

• LAT da 601 a 610 (0259H-0262H) per i numeri logici dei file attivi. 

• FAT da 611 a 620 (0263H-026CH) per i numeri logici delle periferiche dei 
file attivi. 

• S AT da 621 a 630 (026DH-0276H) per gli indirizzi secondari dei file attivi. 
1 tre byte 601, 611 e 621 contengono le informazioni relative al primo file, egli altri, 
analogamente in gruppi di tre, per gli altri file. Dalle dimensioni della tabella 
sembra che si possano aprire contemporaneamente 10 file. In realtà vedremo che 
non è così. 

L’operazione 2) legge o scrive gruppi di dati trasferendoli dal o nel buffer e, certe 
volte, dà luogo anche alla lettura o scrittura fisica nel o dal buffer. 

Anche questa operazione viene trattata diffusamente nei due capitoli seguenti; sono 
le istruzioni INPUT #, GET# e PRINT #. 

L’operazione 3) chiude la comunicazione con il file e la periferica; si tratta della 
CLOSE. Essa elimina il file dalla tabella di gestione, e, in certi casi, dà luogo 
all’ultima registrazione sul supporto. 


1.3 Come si elaborano i file di dati 

Le operazioni che si eseguono sui file di dati possono essere dei tipi seguenti: 

1) Creazione ex-novo del file. 

2) Aggiornamento del file. 

3) Ricerca di dati sul file. 

Il modo con il quale possono avvenire queste operazioni dipende dal tipo del file, 
definito nella fase di creazione. 

CREAZIONE EX-NOVO DEL FILE 

Consiste nella scrittura iniziale del file. In questa fase viene assegnato un nome al 
file, ne viene stabilito il tipo, sono definite le caratteristiche dei record e dei campi. 
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Nei due capitoli seguenti precisiamo come viene svolta la creazione del file per ogni 
tipo preso in esame. 


AGGIORNAMENTO DEL FILE 

Consiste nella modifica di record già presenti nel file, nella cancellazione di qualche 
record e nell’aggiunta di nuovi record. L’operazione si svolge con modalità diverse 
in dipendenza dal tipo del file e dal supporto fisico usato. 


RICERCA DI DATI SUL FILE 

Possiamo raggruppare sotto questo nome tutte le operazioni di utilizzo dei dati 
registrati in un file. La più semplice e banale è la lista su carta di tutti i record del file. 
Altre operazioni possono essere di tipo selettivo con riferimento al contenuto di 
uno specifico, campo. Un’operazione molto comune è la riorganizzazione dei 
record di un file in base al contenuto di un campo; essa prende il nome di 
SELEZIONE (SORTING) e richiede una notevole quantità di memoria, sia centra¬ 
le che di massa. Le modalità di ricerca consentite su un file dipendono dal suo tipo, 
dal supporto fisico e dal software a disposizione. 

Il problema principale inerente alla ricerca di un record in un file è quello di sapere 
quale record si vuole. Consideriamo, come esempio, un file relativo ad alcune 
informazioni sui dodici mesi dell’anno. Questo file è formato da 12 record, uno per 
ogni mese, e risulta ovvio che il primo record è quello di gennaio, l’ultimo quello di 
dicembre, il decimo quello di ottobre e simili. Consideriamo ora un file di indirizzi, 
che contiene 500 argomenti; come facciamo a sapere che il record relativo al signor 
Bianchi Carlo è, per esempio, il dodicesimo? Un modo potrebbe essere avere a 
disposizione un elenco su carta, dove ogni nome, riportato in ordine alfabetico per 
comodità di consultazione, sia accompagnato da un numero, il numero d’ordine 
del record. Abbiamo ora introdotto il concetto di INDICE di un file, anche se su 
carta. Se non possediamo alcun indice, per trovare il record del signore in questio¬ 
ne, possiamo solo cominciare a leggere il file dal primo record controllando i nomi 
che si incontrano, fino a trovare quello cercato. Questo metodo è, per esempio, 
l’unico a disposizione per i file su nastro, che sono di tipo sequenziale. 
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CAPITOLO 2 


FILE SU CASSETTA 


2.1 Introduzione 

Al file su cassetta può essere assegnato un nome di riconoscimento; esso viene 
registrato insieme ad alcuni caratteri di controllo, generati dal sistema. L’insieme di 
questi dati costituisce il blocco di testata del file sul nastro. Se l’utente registra senza 
nome, il blocco di testata contiene solo i caratteri di controllo. Questi caratteri di 
controllo risultano trasparenti per l’utente nelle normali operazioni di gestione dei 
file da BASIC. Ti consigliamo di registrare usando sempre un nome di riconosci¬ 
mento; esso permette infatti di distinguere tra loro le diverse registrazioni, che 
possono trovarsi sulla stessa cassetta, e di richiamarle in modo selettivo. 

Il COMMODORE 64 consente di gestire due tipi di file su nastro; si tratta sempre di 
FILE SEQUENZIALI, ma le modalità di registrazione sono diverse. Si possono 
avere: 

• I file ASCII: in essi i dati sono registrati carattere per carattere in blocchi 
separati uno dall’altro da un CARATTERE SEPARATORE. 

• I file BINARI: in essi i caratteri sono registrati in modo apparentemente 
continuo. 

I file ASCII sono usati per registrare dati, i file BINARI per registrare programmi. I 
due tipi di file sono gestiti con istruzioni diverse; nel volume dedicato al BASIC 
abbiamo già trattato i file di programmi. 

La differenza, dal punto di vista della gestione, tra i due tipi di file sta nel fatto che, 
mentre i file ASCII possono essere letti a pezzi e il nastro viene avviato per leggere 
un blocco e poi fermato, i file BINARI possono solo essere letti tutti in una sola 
volta; il loro contenuto viene cioè trasferito completamente in memoria a partire da 
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un certo byte. Inoltre, se l’indirizzo del byte dal quale inizia la memorizzazione non 
coincide con quello registrato nella testata del file, avviene la modifica dei due byte 
di LINK di ogni linea di programma (rilocazione). Questo succede in quanto i file 
binari possono essere solo file di programmi BASIC. 

Il buffer per le operazioni nastro si trova nella RAM del calcolatore a partire dal 
byte 828 (033CH) e occupa 192 byte, in conseguenza il blocco fisico di nastro che 
viene letto o scritto è di 192 caratteri. Il sistema registra due volte ogni blocco fisico 
su nastro e, in fase di lettura, confronta la prima lettura con la seconda. Se le due 
letture non coincidono viene segnalato un errore. L’utente non si accorge di questa 
doppia registrazione, può solo notare che le operazioni nastro sono lente. Tra un 
blocco fisico di registrazione e il successivo si trova un pezzetto di nastro non 
utilizzato (GAP); esso è necessario per consentire la fermata e il riavvio del nastro. 
Ogni file è composto almeno da tre blocchi fisici; la testata, il corpo del file e il 
blocco di chiusura. 


Altri indirizzi importanti per la gestione delle operazioni su cassetta sono: 

FBUFPT, byte 113/114 (0071H-0072H) 
puntatore al buffer della cassetta. 

STATUS, byte 144 (0090H) 

parola di stato per le routine KERNAL di Input/Output, nel programma BASIC 
viene richiamata con ST. 

SVXT, byte 146 (0092H) 

costante di controllo per la velocità di scorrimento del nastro. 

VERCK, byte 147 (0093H) 
indicatore; 0=LOAD, 1=VERIFY. 

SYNO, byte 150 (0096H) 

numero per sincronizzazione cassetta. 

RTY, byte 155 (009BH) 
carattere di parità del nastro. 

DPSW, byte 156 (009CH) 
indicatore ricezione byte da nastro. 
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PTR1, byte 158 (009EH) 

indicatore errore passo 1 (primo blocco) nastro. 

PTR2, byte 159 (009FH) 

indicatore errore passo 2 (secondo blocco) nastro. 
CNTDN, byte 165 (00A5H) 

contatore in decremento per sincronizzazione cassetta. 

BUFPNT, byte 166 (00A6H) 
puntatore al buffer del nastro. 

INBIT, byte 167 (00A7H) 
bit di input cassetta. 

BITC1, byte 168 (00A8H) 
contatore bit input cassetta. 

RIDATA, byte 170 (00AAH) 
byte di input cassetta. 

RIPRTY, byte 171 (00ABH) 
contatore corto cassetta. 

SAL, byte 172/173 (00ACH-00ADH) 
indirizzo iniziale memorizzazione file binari. 

EAL, byte 174/175 (00AEH-00AFH) 
indirizzo finale memorizzazione file binari. 

CMPO, byte 176/177 (00B0H-00B1H) 
costanti per operazioni nastro. 

TAPE1, byte 178/179 (00B2H-00B3H) 
puntatore buffer nastro. 

BITTS, byte 180 (00B4H) 
contatore bit output cassetta. 

NXTBIT, byte 181 (00B5H) 

prossimo bit da inviare, indicatore fine nastro. 
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FNLEN, byte 183 (00B7H) 
lunghezza nome file corrente. 

LA, byte 184 (00B8H) 
numero logico file corrente. 


SA, byte 185 (00B9H) 
indirizzo secondario file corrente. 

FA, byte 186 (OOBAH) 
numero logico periferica corrente. 

FNADR, byte 187/188 (00BBH-00BCH) 
puntatore al nome del file corrente. 

ROPRTY, byte 189 (OOBDH) 
parità output cassetta. 

FSBLK, byte 190 (00BEH) 
contatore blocco Input/Output cassetta. 

CASI, byte 192 (00C0H) 
arresto motore nastro. 

MEMUSS, byte 195/196 (00C3H-00C4H) 
memoria temporanea LOAD nastro. 

IRQTMP, byte 671/672 (029FH-02A0H) 

contiene il vettore IRQ durante Input/Output da nastro. 

Byte 674 (02A2H) 

controllo sensore cassetta durante Input/Output da nastro. 

Byte 675 (02A3H) 

memoria temporanea per lettura nastro. 

Byte 676 (02A4H) 

indicatore temporaneo IRQ durante lettura nastro. 

Puoi analizzare il contenuto di alcuni di questi byte in diversi momenti, usando la 
funzione PEEK, per renderti conto meglio del loro significato. 
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2.2 File di dati 


Su nastro si possono gestire solo file sequenziali. 11 file può essere composto da 
record di lunghezza fissa o variabile. Il record può essere composto da un solo 
campo o da più campi di lunghezza fissa o variabile. Il fatto di gestire campi di 
lunghezza variabile (e in conseguenza record di lunghezza variabile), dipende dalla 
logica del programma. Per la logica di costruzione del file un campo termina con un 
carattere separatore valido, ma al limite, e con le limitazioni che vedremo, un intero 
file potrebbe essere costituito da un solo campo senza caratteri separatori. 

Esponiamo per prima cosa le istruzioni BASIC disponibili per la gestione dei file su 
cassetta, facendo seguire alcuni esempi. 

OPEN lfn,dn,sa,fn 

si deve usare per aprire un file su nastro, ponendo: dn=l o omettendolo, dato che 
viene assunto per default uguale a uno. Per omettere un parametro, qualora ne 
seguano altri, si devono scrivere due virgole vicine. 

Il parametro sa può avere i seguenti valori: 

sa^O o mancante (valore di default zero) per operazione di lettura, 
sa= 1 per operazione di scrittura senza registrazione del carattere di fine-nastro 
(END-OF-TAPE) dopo la chiusura del file, 

sa=2 per operazioni di scrittura con registrazione del carattere di fine-nastro 
dopo la chiusura del file. 

Il parametro lfn (logical-file-number) può avere un valore compreso tra 1 e 255, ma 
di solito si usano numeri inferiori a 127; tale numero deve essere sempre citato nelle 
istruzioni relative al file. 

Il nome del file, fn, deve essere una stringa di al massimo 16 caratteri; esso può 
essere passato come costante o come variabile. Tale nome può essere omesso, ma la 
cosa non è consigliabile. 

Tutti gli altri parametri che compaiono nell’istruzione possono essere costanti o 
variabili numeriche. 

L’istruzione OPEN provoca la scrittura del blocco di testata del file, tale blocco 
transita dal buffer, come vedremo dagli esempi che seguono. 

PRINT#lfn,lista 

provoca la scrittura dei dati della lista sul file contraddistinto dal numero logico lfn. 
Nel caso della cassetta può essere ovviamente trattato un file per volta, ma se lo lfn 
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usato nella PRINT non corrisponde a quello usato nella OPEN si ha segnalazione 
di errore. Analogamente si ha segnalazione di errore se il file non è stato aperto per 
scrivere. I dati della lista vengono trasferiti nel buffer della cassetta; quando il 
buffer è pieno, esso viene scritto su nastro. Può succedere che l’ultimo dato inviato, 
quello che finisce di riempire il buffer, venga spezzato in modo che i primi caratteri 
sono scritti fisicamente in un blocco e gli altri nel successivo. Tu comunque non ti 
accorgi di questo nè in fase di scrittura, nè in fase di lettura. 

Come sempre, la lista di dati può essere formata da costanti o da variabili separate 
tra loro da virgola o da punto e virgola. Il carattere separatore virgola provoca 
l’aggiunta di spazi ai caratteri del dato che lo precede, il carattere separatore punto 
e virgola non provoca l'aggiunta di spazi. In sostanza questi caratteri separatori 
agiscono come sul video, ma non provocano la registrazione di un carattere 
separatore. Per poter rileggere poi con l’istruzione INPUT#, che legge in variabili, 
è necessario che i dati siano registrati facendo comparire dopo ognuno di essi un 
carattere separatore valido, cioè riconosciuto come tale dal sistema. I caratteri 
separatori riconosciuti sono il RETURN (CHR$(13)) e la virgola (CHR$(44)). Il 
primo può essere passato usando la funzione CHR$(13) oppure facendo terminare 
la lista di dati senza punteggiatura. Il secondo può essere passato usando la 
funzione CHR$(44) oppure come stringa costante Abbiamo però delle limita¬ 
zioni nell’uso dei due caratteri separatori, infatti il sistema non consente che i dati, 
qualora debbano poi essere letti con INPUT#, siano registrati in modo che tra due 
caratteri CHR$(13) siano compresi più di 79 caratteri. Inoltre, se si usa come 
carattere separatore registrato la virgola, l’istruzione INPUT# deve leggere ripor¬ 
tando nella lista dei dati tanti nomi di variabili quanti sono i dati compresi tra due 
CHR$(13); se non si opera così, si perdono dei dati. 

In sostanza possiamo affermare che: 


• per separare i record logici si deve usare il carattere separatore CHR$( 13), 
mentre per separare i campi si può usare anche il carattere CHR$(44), purché la 
somma dei caratteri non superi 79, comprese le virgole separatrici, e i campi 
vengano letti tutti da una sola INPUT#; 

• per poter leggere con INPUT# il numero dei caratteri compresi tra due 
CHR$(13) non deve superare 79; 

• quando la lista dei dati termina senza punteggiatura il sistema aggiunge un 
CHR$(13); 

• può essere usato sempre come carattere separatore CHR$(13) sia a livello 
di campo che di record, e con esso si può leggere con maggior libertà; 

• i dati vengono scritti carattere per carattere trasformando i numeri in 
stringa con le regole note; 


16 



• i dati, scritti senza caratteri separatori registrati o con caratteri separatori 
registrati, possono essere letti carattere per carattere con l’istruzione GET#. 

INPUT#lfn,lista 

legge dal file, aperto per leggere con numero logico Ifn, i dati trasferendoli nelle 
variabili della lista. Un dato viene considerato terminato quando viene incontrato il 
carattere CHR$(13) o il carattere CHR$(44). Se un dato supera il numero dei 
caratteri consentiti si ha segnalazione di errore. Se si cerca di leggere in una 
variabile numerica un dato non numerico si ha segnalazione di errore. Se la lista 
contiene un numero di variabili inferiore al numero dei dati compresi tra due 
RETURN e separati da virgole, i dati in più non vengono letti. 

GET#lfn, lista 

legge dal file, aperto per leggere con numero logico lfn, un carattere per volta. Dopo 
l’operazione ogni variabile della lista contiene un carattere. Ti consigliamo di usare 
nella lista solo variabili stringa, per evitare errori. 

Con GET# si può leggere un file scritto senza usare mai caratteri separatori validi 
tra i dati; deve, però, pensare poi il programma a interpretare opportunamente 
l’insieme dei caratteri letti. 

CLOSE lfn 

chiude il file aperto con numero logico lfn. 

Segue il programma PRFL1C, come primo esempio. 


10 REM PRFL1C 
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REM 

CREAZIONE FILE 

SEQUENZIALE 


20 

REM 

RECORD LOGICO F 

URMAT 

0 DA 3 CAMP 

I 

25 

REM 

CAMPI DI LUNGHE 

ZZA V 

ARIABILE 


30 

REM 

A$*C0GN0ME 




35 

REM 

B$+NQME 




40 

REM 

CS^DATO NUMERIC 

0 LET 

TO COME STR 

INGFI 

45 

REM 

SEPARATORE DI C 

AMPO 

= CHRSK13) 


50 

REM 

UH SOLO PRINT S 

CRI VE 

IL RECORD 


cc 

. J. J 

REM 

SENZA PUNTEGGIATURA 

FINALE 


60 

REM 

IL. SISTEMA AGGI 

UNGE 

CHRT<13 > 


65 

REM 

ALLA FINE DEL PECORE 



70 

REM 

" " COME SEPARATORE 

TRA LE VARI 

ABILI 

75 

REM 

PER NON AGGIUNG 

ERE E 

PAZI 


30 

CH$'= 

: CHR$ < 13 > : OPEN 1 , 

1,1, " 

FL.1C" 
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85 V*=CHR$<44):PV$=CHR$(59> 

90 CD$= " 1 ' 

95 PRINT"□": INPUT"COGNOME : ";fl$ 

100 INPUT"NOME: ";B$ 

185 INPUT"NUMERO:";C$ 

110 pr i NT# i, m ; CHf ; B$ ; ch$ ; c$ 

115 PRINT#1,HT,CHT,B$,CH$, 0 $ 

120 PR I NT# l, H$ ; v$B* ; v$Cf 
125 PR I NT# 1, m PVT ; B$, PV$ ; C$ 

130 Ri : “" " : PRINT CD-f.; "ALTRO RECORD <S/N>?' 
135 GETRT: IFR$=""THEN135 
140 IFRTO"S"THEN 150 


145 UUTU95 

150 PR I NT "CF: IHIL NRSTRO-POI SCRIVI CONT' 

155 CL08E1 : STOP 

1 60 OPEN1,1,0,"FL1C":0PEN4,4 

165 PRINT#4,"FILE LETTO CON GET#" : PRINT#4 

170 GET#1,R$:TS~3T:PRINT#4, R $; " # “ : 

175 IFTS064THEN170 
180 PRINT#4:CLOSE1 :CL0SE4 

185 PRINT" 7T'. IRVV. IL NflSTRQ-POI SCRIVI CONT' 
190 STOP 

195 OPEN1,1,0,"FL1C": OPEN4,4 

200 PRINT#4,"FILE LETTO CON INPUT#":PRINT#4 

205 INPUT#1,R*:TS=ST:PRINT#4,R$ 


210 IFTSO64THEN205 
215 PR I NT#4 : CLOSE 1 : CLOSE4 ■' STOP 


11 programma PRFL1C fa le seguenti cose: 

• crea un file sequenziale su nastro di nome FL1C (linea 80), 

• il record logico del file è formato da 3 campi di lunghezza variabile, e per essi 
non viene controllata la lunghezza: cognome, nome e numero (linee 95-105), 

• i 3 campi sono trattati come stringhe, 

• ogni record logico viene scritto 4 volte: 

1 ).usando come carattere separatore tra le variabili il punto e virgola e come 
carattere separatore registrato il CHR$(13) (linea 110), 

2).come in 1), ma usando come carattere separatore tra le variabili la virgola 
(linea 115), 
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3) .usando come carattere separatore tra le variabili il punto e virgola e come 
carattere separatore registrato la virgola (CHR$(44)) (linea 120), 

4) .come in 3), ma usando come carattere separatore registrato il punto e 
virgola (CHR$(59)) (linea 125), 

• dopo aver scritto 4 volte un record viene chiesto se si vuole aggiungere un 
altro record (un gruppo di 4) (linee 130-145), 

• quando la risposta è NO, viene chiuso il file (linea 155), 

• viene chiesto di riavvolgere il nastro (linea 150) e viene aperto il file per 
lettura (linea 160), 

• il file viene letto con GET# e stampato carattere per carattere (linee 170- 

180), 

• viene chiesto di riavvolgere il nastro (linea 185) e viene aperto nuovamente il 
file per lettura (linea 195), 

• il file viene letto con INPUT# e stampato (linee 200-215). 

Seguono i risultati di FL1C, nel caso si siano caricati 2 record diversi, contenenti i 
seguenti dati: 

Cognome: PRIMOC, Nome: PRIMON, Numero: 11111 
Cognome: SECONDOC, Nome: SECONDON, Numero: 22222 


FILE LETTO CON GET# 

P#R*I*M*0*C* 

*P*R*I*N*0*N* 

*1*1*1*1*1* 

*P*R*I*M*0*C* ********** 

********** * p * F: * i * ri * o * n * ********** 
********** * 1 * 1 * 1 .* 1 * 1 * 

*F'*R* I *M*0*C*, *F'*R* I *M*0*N*.. * 1 * 1 * 1 * 1 * 1 * 

*P*R* I *M*0*C* ; *F‘*R* I *M*0*H** 1 * 1 * 1 * 1 * 1 * 

* S * E * C * 0 * N * D * 0 * C * 

* S * E * C * 0 * N * D * 0 * N * 

* 2 * 2 * 2 * 2 * 2 * 

*S*E*C*0*N*D*0*C* ********** 

* * * * ****** *S*E*C*0*H*D*O*N* ********** 
********** * 2 * 2 * 2 * 2 * 2 * 

*S*E*C*0*H*n*0*C*,*S*E*C*O*H*D*0*N*,*2*2*2*2*2* 
*S*E*C*0*H*P*0*C**S*E*C*0*N*D*0*H* : *2*2*2*2*2* 

* 
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FILE LETTO CON INPUT# 


FRInoe 

F'RIMON 

imi 
FRInoe 
PRIMOH 

imi 

FRInoe 

FRI MOC.; FRI NON; lini 

SECONDOC 

SECONDOH 


SECONDOC 

SECONDOH 


SECONDOC 

SECONDOC.: SECOyDON.; 22222 


Per mettere meglio in evidenza i risultati della lettura con GET#, ogni carattere 
viene stampato facendolo seguire dal carattere Come puoi vedere; 

• il carattere separatore tra le variabili non aggiunge spazi, 

• il carattere separatore tra le variabili aggiunge 10 spazi dopo il dato, 

• dopo il CHS (che è il carattere RETURN), la stampa continua alla riga 
seguente e ci sono 10 spazi, il primo asterisco è quello che viene dopo CHS, 

• i caratteri separatori registrati e sono letti e stampati, 

• ogni istruzione di PRINT# (linee 110-125) termina senza punteggiatura e 
quindi il sistema aggiunge il RETURN. 


La seconda parte dei risultati riguarda la lettura con INPUT#. Come puoi vedere: 

• non si nota differenza nella lettura dei primi due record, infatti gli spazi a 
sinistra dei dati vengono persi e quelli a destra non si vedono (ma ci sono), 

• per il terzo record la virgola separatrice registrata fa perdere gli ultimi due 
campi, dato che la lista dati della INPUT# contiene una sola variabile, 

• per il quarto record il punto e virgola separatore registrato non viene 
riconosciuto e i tre campi vengono letti come un campo unico. 

Puoi sostituire alla linea 205 del programma le due linee che seguono; 
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2fi5 I MF'UT# 1, R1*, R2*, R3$ ; TS=ST 

206 PRI NT#4,R 1 $■ PRINT#4,R2* : PRIHT#4,R3$ 


ottenendo di non perdere i tre campi quando usi il separatore registrato virgola. 
Infatti in questo caso la linea 205 legge tutto il record in una sola volta; la lista dati è 
formata da tre variabili. 


Puoi provare il programma PRFL1C rispondendo alla richiesta dati con campi 
abbastanza lunghi, tipo 60 caratteri; vedrai che alla INPUT# di linea 205 otterrai il 
messaggio di errore STRING TOO LONG, infatti con l’aggiunta degli spazi si 
superano i 79 caratteri. 

Segue il programma PRFL2C. 


10 REM PRFL2C 

15 REM CARICAMENTO FILE NUMERICO 

20 REM OGNI RECORD LOGICO COMPRENDE 2 CAMPI 

25 REM IL. PRIMO E' UN NUMERO INTERO 

30 REM IL SECONDO UN NUMERO DECIMALE 

35 REM SI USA CHR$<13> COME SEPARATORE DI CAMPO 

40 REM PER USCIRE DARE UN INTERO NULLO 

45 REM IL.. RETURN FINALE LO METTE IL SISTEMA 

50 CH$~CHR$ <13) 

55 OF'ENl, 1, 1, "FL2C" : 0PEN4.. 4 

60 PRINT"□NUMERI INTERI O 32767*»!]" 

65 PRI NT "PER USCIRE RISPONDERE 0 (ZERO) A INTERO*»!]" 

70 INPUT"INTERO: "%IK 

75 IFIX=0THENCLOSE1 : GQT095 

80 INPUT"DECIMALE: "JD 

85 PRINT# 1.. IL.; cht;d 

90 GOTO70 

95 zi-"DOPO OPERAZIONE CLOSE" : G0SUB185 
100 F'RINT" ZF: IAVV. IL NASTRO-POI SCRIVI CONT" 

105 STOP 

110 REM LETTURA FILE NUMERICO 

115 REM CON INPUT VENGONO LETTI I 2 CAMPI 

120 REM ESSI VENGONO STAMPATI 
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125 REM QUANDO E" FINITO IL FILE VIENE LETTO 
130 REM E STAMPATO IL CONTENUTO DEL BUFFER 
135 OPEN 1, 1,0, "FL.2C" 

140 Z*-"Ii0PO OPERAZIONE OPEN" = GOSUB185 

145 PRI NT#4 : F'R I NT#4, " CONTENUTO FI LE NUMERI CO " 

150 PR I NT#4 : F'R I NT#4 

155 INPUT# 1, VAj D : TS=ST 

ISO PRINT#4,12, H 

165 IFTS064THEN155 

170 Z$="DOPO LETTURA DATI NUMERICI":GOSUB185 

175 CL.QSE1 

180 CL0SE4 : STOP 

185 PR I NT#4 : PR I NT#4 .■ Z$ 

190 PRIHT#4,"CONTENUTO BUFFER CASSETTA" 

195 PRINT#4 
200 1=828 

205 FORK=1TO18 : FORL=1T04 

210 PRI NT#4, I ; " " MI D$< STR*< PEEK < I > ) + " " , 2,3 

215 1=1+1=NEXTL:PRINT#4 
220 NEXTK : PRINT#4: RETURN 


Il programma PRFL2C fa le seguenti cose: 

• crea un file sequenziale il cui record logico comprende due campi numerici: 
un numero intero e un numero decimale (con cifre dopo il punto decimale) (linee 
55-90), 

• viene usato come carattere separatore sia di campo che di record il RETURN 
(linea 85), 

• dopo la chiusura del file viene stampato il contenuto del buffer della cassetta 
(linea 95, sottoprogramma 185-220), 

• viene chiesto di riavvolgere il nastro (linea 100) e poi viene aperto il file per 
leggere (linea 135), 

• dopo l’apertura del file viene stampato il contenuto del bufffer (linea 140), 

• viene letto e stampato il file (linee 145-165), 

• viene stampato il contenuto del buffer dopo la lettura del file (linea 170). 
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Seguono i risultati nel caso si siano caricate nel file le seguenti 4 coppie di numeri 


123, -678.43 
-67, 543.78 
3456, 90.67 
-43, 890.5 


DOPO 

OPERH 

ZI ONE 

CLO 

3 E 




CONTENUTO 

BUFFER 

CO 

3SETTR 




i~i *■“• 

O c» u 

ci. 

829 

■”i **"i 

830 

4*4 

831 

50 

t“i ■“* 

51 

8:33 

._i 

834 

13 

835 

45 

836 

54 

O O "7 

i 

55 

Q •"j O 
-.3 

56 

839 

46 

840 

cr “i 
• J d 

841 

51 

842 

*"*i *"*i 

Od 

843 

13 

844 

45 

845 

54 

846 

55 

847 

32 

848 

13 

843 

CU* 

850 

5 3 

851 

52 

852 

51 

853 

46 

854 

cr cr 
. J ._l 

O'J.J 

56 

856 

•— 1 

857 

13 

•- 1 5 y 


853 

51 

860 

cr 

Od 

861 

53 

862 

54 

86:3 

32 

864 

13 

865 

C. 

866 

57 

867 

4 o 

868 

46 

863 

54 

870 

55 

871 

32 

o r 2 

13 

873 

45 

874 

52 

875 

51 

876 

O ci! 

87 7 

13 

o r o 

Oc'. 

879 

56 

880 

cr 
.. J i 

SS 1 

48 

882 

46 

Ol“"l 

O *_ l 

53 

884 

ii 

Od 

885 

13 

o o ò 

0 

8 8 ( 

Od 

i‘j i"i £i 

892 

3 6 

889 

o o 

.j j”j. 

838 

834 

O d 

831 
895 

•”i i 

. i y 

O ili. 

836 


837 

•”*i *‘“i 

•~‘C. 

838 

. 1.- 

839 



DOPO OPERAZIONE OPEN 
CONTENUTO BUFFER CRSSETTR 
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y44 

oo 

od 

845 

od 

846 

Od 

847 

Od 

S4S 

Od 

849 

32 

850 

32 

851 

1 '“l 

Od 

852 

ci 

853 

od 

854 

Od 

855 

Od 

856 

O d 

857 


858 

Od 

859 

•j *“i 

860 

o **~* 
od 

861 

Od 

862 

o o 

Od 

863 

•~i “i 

Od 

864 

o d 

865 

Od 

866 

32 

867 

32 

8 6 8 

j ~i 

o d 

869 

O ■” 

Od 

870 

32 

871 

32 

1 li. 

od 

873 

•~i •“» 

Od 

874 

O d 

875 

O 

876 

32 

877 

32 

070 

I 

■.r. 1 d 

879 

Od* 

880 

•"i •“ 

■2* c~ 

881 

Od 

OC' - " 1 

oot 

--i 

ri n •“*! 

i_.i o ._i 

Od 

884 

32 

O O cr 
o o •, J 

O d 

OOiC 

OOD 

■"i 

887 

•2* d 

O O O 

I ,. 1 1^,1 l„l 

“i *“i 

od 

889 

O 

O d 

890 

•j 

O d 

891 

•“» ‘*~i 

od 

892 

.**1 .■*' 

yyy 

Od 

894 

Od 

895 

•“i '“i 

896 

Od 

897 

•2; O 

O w— 

OCiO 

O 2^ O 

82 

899 


CONTENUTO 

FILE 

NUMERI 

CO 





123 


--67 

8 . 43 





-67 


543 

■? o 

m r o 





3456 


90.6 r’ 





“43 


890 

5 

n O 





DOPO 

LETTURR URTI NUMERICI 



CONTENUTO 

BUFFER 

CRS 

BETTA 




O ♦“» i“i 
Ut»J 


829 

Od 

830 

49 

831 

50 

i~i *~i 

of o d 

51 

oo*-i 

l,JO 

oo 

834 

13 

C'OCT 

O o >J 

45 

836 

54 

So { 

55 

i”i o i"i 

l_l .J l_,l 

56 

839 

46 

840 

rr“' 

841 

51 

842 

■“i >“• 

Od 

O .-1 o 

O *-r. *i 

13 

844 

45 

845 

54 

846 

55 

84 r 

ii.i 

848 

13 

849 

Od 

850 

CT 

-, J O 

oj J. 

52 

l*“l C •***! 

O-Jd 

51 

ocro 

O1 .^.1 

46 

854 

55 

855 

56 

856 

yv 

857 

13 

O cr i~i 

O J O 

•“i 

od 

859 

51 

860 

ero 

861 

53 

862 

54 

OiT - -' 

ubo 

O') 
o d 

y 6 4 

13 

865 

32 

866 

tr “7 

867 

48 

868 

46 

869 

54 

370 

55 

871 

■“i o 

O "7 ”• 

13 

873 

45 

8 r' 4 

52 

875 

51 

876 

■~i 

877 

13 

878 

y ci 

879 

56 

880 

ET"? 

• J \ 

881 

48 

882 

46 

883 

53 
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Come puoi vedere, il contenuto del buffer dopo la CLOSE che chiude la creazione 
del file è uguale a quello stampato dopo la lettura del file. Trovi come primo 
carattere 2, che significa file di dati. Dopo trovi i numeri caricati, carattere per 
carattere in codice ASCII, preceduti da uno spazio (32) o dal segno meno (45), dopo 
il numero si ha ancora uno spazio (32) e poi il carattere separatore RETURN (13). 
Dopo l’ultimo numero, nel byte 886 puoi vedere lo zero binario di chiusura del file. 
Il contenuto del buffer dopo l’operazione di OPEN per leggere ci mostra 4 nel 
primo byte, e il nome del file FL2C nei byte da 833 a 836. 


2.3 File di programmi 

Nel Paragrafo 4.2 del volume IL BASIC, abbiamo visto i comandi relativi alla 
memorizzazione e al caricamento dei programmi su nastro. In questo paragrafo 
analizziamo il contenuto dei file di programmi, cercando di leggerli come file 
sequenziali ASCII. 

Abbiamo preso il programma PRGINMEM di pag. 267 del primo volume e 
l’abbiamo salvato su cassetta con: SAVE “PRGINMEM”. 

Il programma FILEPROG1, che segue, legge tale file aprendolo come file sequen¬ 
ziale ASCII. 


10 REM FILEPROGl 

15 GQSUB145 : REM AZZERA BUFFER 

20 OPEN 1.' 1,0, "PRGINMEM" 

25 0PEN4,4 

30 PRINT#4,"BUFFER DOPO OPEN PRGINMEM" 
35 F'RINT#4 : OOSUB100 : REM LISTO BUFFER 
40 GOSUB145 : REM AZZERA BUFFER 
45 GET#1,A$: REM LEGGE UN CARATTERE 
50 F’RINT#4 : F'RINT#4, "BUFFER DOPO UN GÈT' 
55 PRINT#4 :GOSUB100 : REM LISTA BUFFER 
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60 REM CICLO 191 GEI PER ARRIVARE ALLA 
65 REM FINE DEL BUFFER 
70 FORK=1TO191:GET#1,A$ 

75 NEXTK 

80 GET# 1.. fl$ ■' REM UN GET DOPO I PRIMI 192 

85 F'RINT#4 : F'RINT#4, "BUFFER DOPO 193 GET" 

90 PRINT#4 :GOSUB100 : REM LISTA BUFFER 

95 CLOSE1 :CL0SE4 : STOP 

100 REM LISTR BUFFCASS 

105 REM INDIRIZZI BUFFER CASSETTA 

110 I1=828 : I2=1019 

115 FORICI ITOI2STEP6 

120 FORK=0TO5 

125 PR I NT#4 > PEEK i I+K > 

120 NEXTK 

135 PRINT#4=NEXTI 

140 RETURN 

145 REM AZZERA BUFFCASS 
150 I1=828 : 12=1019 
155 FORICI ITO12 
160 POKEI>32 
165 NEXTI 
170 RETURN 


Il programma FILEPROG1 fa le seguenti cose: 

• pone il carattere spazio (32) in tutte le posizioni del buffer (linea 15, 
sottoprogramma 145-170), 

• apre il file PRGINMEM come file da leggere (linea 20), 

• stampa il contenuto del buffer dopo la OPEN (linee 30-35, sottoprogramma 
100-140), 

• pulisce il buffer (linea 40), 

• legge con GET# un carattere dal file, provocando il riempimento del buffer 
(linea 45), 

• stampa il contenuto del buffer (linee 50-55), 

• esegue un ciclo di 191 GET#, per arrivare alla fine del buffer (linee 60-75), 

• esegue un nuovo GET# per provocare un ulteriore riempimento del buffer 
(linea 80), 

• stampa il contenuto del buffer dopo questo nuovo GET# (linee 85-90), 

• chiude il file (linea 95). 
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Seguono i risultati 


BUFFER DOPO OPEN PRGINMEM 



BUFFER DOPO UN GET 


16 8 1 8 143 32 

80 82 il r'J if 8 ii' 

69 77 O 54 8 5 

0 159 52 44 52 58 

157 52 58 153 34 SO 

82 79 71 82 65 77 


- 7*7 £tz[ 

i r b-J 


.J C- I I 


r' r' 69 (7 r’9 82 r o 

65 34 58 153 @ 76 

8 IO 0 88 178 50 

53 54 172 194 40 52 

52 41 170 194 40 52 

51 41 0 98 8 15 

0 89 49 178 194 40 

88 41 58 89 50 178 

194 40 88 170 49 41 

0 129 8 17 0 139 

89 49 170 89 50 178 

48 .1.67 153 88 59 34 

42 42 34 59 89 49 

59 89 50 58 137 54 

48 0 165 8 20 0 
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153 

CO 

OC 

59 34 

42 42 

34 

59 

89 49 

59 89 

50 

59 

34 76 

73 78 

75 

61 

34 59 

89 50 

172 

50 

53 54 

170 89 

49 

0 

189 8 

25 0 

89 

49 

178 194 

40 88 

170 

50 

41 58 

89 50 

178 

194 

40 88 

170 5 

41 

0 

221 8 

30 0 

BUFFER DOPO 193 GET 


3 

1 8 

82 9 

80 

82 

71 

73 78 

77 69 

77 

•5cL 

32 32 

32 32 

32 

32 

32 32 

32 32 

32 

32 

32 32 

32 32 

32 

3'T* 

o "i z-y 

Oc. ■-•d. 

32 32 

32 

32 

co co 

32 32 

32 

32 

oc oc 

• j j ;"|2 

32 

■ i ,_ ~i 

. i y 


i 


Come puoi vedere dai risultati, dopo la OPEN nel buffer si trova 1 nella prima 
posizione. Segue nei 2 byte successivi l’indirizzo di inizio del programma 
(8*256+1=2049). Segue nei 2 byte successivi l’indirizzo di fine programma 
(9*256+82=2376). Segue il nome del file: PRGINMEM. 

Il contenuto del buffer dopo il primo GET# ci mostra il programma byte dopo 
byte, esattamente come si trova in memoria; puoi confrontare con la pag. 267 del 
primo volume. Però il contenuto del buffer dopo il GET# numero 193 ci mostra il 
blocco di chiusura del file, abbiamo cioè perso un pezzo del file, a dimostrare che i 
file di programma non possono essere letti come file ASCII. 

Segue il programma FILEPROG2, che ci consente di vedere il contenuto del blocco 
di testata di un file di programma. 
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10 REM FILEPR0G2 

15 REM STAMPA TESTATA FILE PROGRAMMA 
20 GOSUB100 •' REM AZZERA BUFFER 
25 0PEN4.' 4 : REM APRE STAMPANTE 
30 OPEN1,1,0,"PRGINMEM" 

35 PRINT#4,"BUFFER DOPO OPEN PRGINMEM" 

40 PRINT#4 : G0SUB55 

4-5 CLOSE1 : CL0SE4 : STOP 

50 REM IJTCASS 

55 REM STAMPA BUFFCASS 

60 REM INDIRIZZI BUFFER CASSETTA 

65 I1”828 : 12=1019 

70 FORICI ITOI2STEP6 

75 FORK=0TO5 

80 PR I NT #4,PEEK<I +K>;" "; 

85 NEXTK 

90 PRINT#4 ; NEXTI 
95 RETURN 

100 REM AZZERA BUFFCASS 
105 I1=828 : I2=1019 
110 FORI=IITO12 
115 F'OKE I .• 32 
120 NEXTI 
125 RETURN 


Noi abbiamo operato così: 

• abbiamo salvato su cassetta il programma PRGINMEM nei diversi modi 
possibili, cioè con SA VE senza sa, o con sa=l, sa=2 e sa=3, 

• abbiamo aperto ognuno di questi file come file in lettura e stampato il 
contenuto del buffer usando il programma FILEPROG2, 

• abbiamo constatato che cambia il primo carattere del bloccco di testata. 

Segue il programma FILEPROG3. 


10 REM FI L.EPR0G3 

15 REM STAMPA BUFFER DOPO SAVE PROGRAMMA 
20 0PEN4,. 4 : REM APRE STAMPANTE 
25 PRINT#4,"BUFFER DOPO SAVE" 
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30 F'R I NT#4 : GQSUB45 

35 CL0SE1 ; CL.0SE4 ; STOP 

40 REM UTCRSS 

45 REM STAMPA BUFFCASS 

50 REM INDIRIZZI BUFFER CASSETTA 

55 I1=828 : I2=828+17 

60 FORI~11 TU 12STEP6 

65 FORK-0TQ5 

70 PRI NT#4.. PEEK (. I+K > ; " "ì 
75 NEXTK 

80 FRINT#4 ; MENTI 
85 RETURN 


Con questo programma abbiamo operato così: 

• abbiamo caricato in memoria FILEPROG3, 

• abbiamo eseguito in immediato il SAVE del programma usando i diversi 
valori di sa consentiti, 


• dopo ogni operazione di SAVE abbiamo fatto girare il programma ottenen¬ 
do in stampa i primi 18 caratteri del buffer; anche in questo caso nel blocco di 
chiusura del file cambia il primo carattere. 


2.4 Esempio di file SEQUENZIALE 

Riportiamo ora un programma che crea e gestisce un file sequenziale su cassetta.il 
nome del programma è PRFL3C e il nome del file gestito è, in questo esempio, 
FL3C. 

Abbiamo deciso di creare un archivio di indirizzi. Il record logico del file deve 
comprendere i seguenti 6 campi: 
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COGNOME 

NOME 

INDIRIZZO 

CAP 

CITTA’ 

TELEFONO. 


I campi possono essere di lunghezza variabile e, in conseguenza, il record logico 
risulta di lunghezza variabile. Abbiamo deciso di tagliare ogni campo in modo che 
risulti al massimo di 79 caratteri. Inoltre abbiamo deciso di tenere i record in ordine 
alfabetico di cognome e nome, scartando in ingresso i nomi fuori ordine, con 
opportuna segnalazione, e non accettando cognomi e nomi uguali. 


Il numero di record gestibili dipende dalla lunghezza del nastro e dalla memoria 
disponibile. Devi tener presente che la casa costruttrice raccomanda di non usare 
cassette superiori ai 30 minuti. Inoltre, nella fase di aggiornamento del file, dato che 
si dispone di un solo registratore collegato, deve essere caricato in memoria tutto il 
file, deve essere modificato e poi riscritto tutto. La memoria occupata dipende dalla 
lunghezza dei campi dei record. 


Il programma esegue le seguenti operazioni: 

1) Crea il file ex-novo 


2) Lista il file sulla stampante 

3) Aggiorna il file consentendo di: 

• modificare record, 

• cancellare record, 

• aggiungere record. 


Riportiamo nella figura 2.1 lo schema a grandi blocchi del programma. 
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Flg. 2.1 SCHEMA A GRANDI BLOCCHI DEL PROGRAMMA 


Abbiamo costruito il programma usando la tecnica dei sottoprogrammi e in modo 
che possa essere facilmente modificato per adattarlo alle proprie esigenze. 

Il programma non presenta un menù iniziale su tutte le funzioni, ma pone domande 
successive sulle operazioni possibili. Finita una fase, per passare alle altre si deve 
ripartire con RUN. Inoltre, se, dopo la creazione del file, si vuole farne la lista o 
altro, si deve provvedere a riavvolgere il nastro. 
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Per uscire dalla fase di caricamento dati si deve rispondere con quattro asterischi 
alla richiesta del COGNOME (****)■ 

Nella fase di aggiornamento viene caricato in memoria tutto il file, dimensionando 
opportunamente sei vettori di stringhe, dopo aver chiesto il numero dei record che 
compongono il file. È opportuno, dopo ogni registrazione, segnare sulla cassetta o 
altrove il numero dei record che sono stati memorizzati. Quando si aggiorna il file è 
bene conservare la cassetta con la vecchia copia e registrare la nuova su un’altra 
cassetta. 


La fase di aggiornamento si articola dapprima nella correzione dei record esistenti, 
poi vengono operate eventuali cancellazioni; queste due operazioni possono essere 
svolte senza rispettare un ordine alfabetico, dato che la ricerca in memoria inizia 
sempre dalla prima posizione dei vettori. La cancellazione viene operata ponendo 
tre spazi al posto del cognome; in fase di riscrittura i cognomi che iniziano con 
spazio vengono saltati. 


L’ultima fase dell’aggiornamento è l’aggiunta di nuovi record; in questo caso i 
nuovi record devono essere forniti in ordine alfabetico di cognome e nome, infatti il 
programma procede nella scrittura e aggiunge al posto giusto i nuovi record. 


Riportiamo nella figura 2.2 lo schema a grandi blocchi della fase di aggiornamento. 


33 




Fig. 2.2 SCHEMA A GRANDI BLOCCHI DELL'AGGIORNAMENTO 
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Passiamo ad elencare le variabili e le costanti usate nel programma. 

PR=4, numero periferica di stampa 
NF=4, lfn del file di stampa 

D$(6), vettore contenente le descrizioni dei campi dati (COGNOME, NOME, 
INDIRIZZO, CAP, CITTA’, TEL.) 

I$(6), vettore contenente i campi dati di un record 
CH$=CHR$(I3), carattere separatore RETURN 
SP$=“ ” costante contenente 3 caratteri spazio 

R$, stringa per le risposte S/N 
NFS, nome del file 

N, numero massimo dei record in memoria 

LCS, vecchio cognome, per controllare l’ordinamento 

LN$, vecchio nome, per controllare l’ordinamento 

SW, switch di controllo: 1 se finiti dati, 0 altrimenti 

NI, puntatore record letti in memoria 

C1$(N), vettore dei cognomi in memoria 

N1$(N), vettore dei nomi in memoria 

I1$(N), vettore degli indirizzi in memoria 

P1$(N), vettore dei CAP in memoria 

L1$(N), vettore delle CITTA’ in memoria 

T1$(N), vettore dei telefoni in memoria 

FF, switch per gli inserimenti in coda: 1 in coda, 0 no 

FS=ST, parola di stato 

NR, contatore linee 

K, Kl, variabili di controllo. 

Per passare ad un tipo diverso di record, se rimane di 6 campi, basta modificare le 
descrizioni alle linee 45 e 50. Se cambia il numero dei campi si devono ricercare nel 
programma i cicli che fanno riferimento a 6, e modificarli. Risulta più difficile 
modificare il criterio di ordinamento, che qui agisce sui primi due campi ed opera in 
senso crescente. 


CORRISPONDENZA TRA I BLOCCHI E I NUMERI DI LINEA 

1) Creazione del file (linee 55-120) 

2) Lista ordinata del file (linee 125-185) 

3) Aggiornamento del file (linee 190-400): 

3.1) Modifiche record (linee 255-275) 

3.2) Cancellazioni record (linee 280-310) 

3.3) Riscrittura e inserimenti (linee 315-400). 
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Segue il listato del programma PRFL3C. 


10 REM PEFL.3C 

15 REM CREAZIONE E GESTIONE FILE SEQUENZIALE 
20 REM NUMERO DEVICE-NUMERO LOGICO STAMPA 
25 PR=4:NF=4 

SO REM VETTORI DESCRIZIONI E DATI 
35 DIMDT <. 6 •', IT (SO 
40 CH$=CHR$<13) : SP$-" 

45 UT(1) = "COGNOME":D$<2 ) = "NOME":DT<3>«"INDIRIZZO" 

50 II* < 4 > = " CAP ":D$ < 5 > = 11 CITTA ' " : D$ ( 6 > = " TEL. " 

55 PEI NT "^«CREAZIONE FILE S/N": INPUT R$ 

60 I FR$0 " S " THEN125 
65 REM***CREAZIONE FILE*** 

70 ijiJSUB5o0 ■ UUSIJB595 • UOSUE605 • UUSIJB615 
75 LC$ = " " : LN$= " " : K1 =N : FORI<= 1TON 
SO GOSUB405 

85 IFSNOOTHENK1 =K : K=N : GOTO 115 
90 IFI $<. 1 > >LC$THEN 105 
35 IFI$(1> =LG$THENIFI$<2>>LN$THEN105 
100 G0SUB685 : GOSUB690 : GOTOSO 
105 LC$= I $ U ) : LN$= ì $ ( 2 ) 

110 G0SUB435 
115 NEZTK : CLOSE1 

120 PRI NT " MFINITO CARICAMENTO "K11 " RECORD " : STOP 
125 PRINT"ZMIStBTAMPA FILE S/N" : INPUTR* 

130 IFR$O n S" THEN 190 
135 REM***STAMPA FILE*** 

140 G0SUB625 ; GOSUB580 : G0SUB595 : GOSUE640 : NR”4 
145 PRINT#NF, "LISTA FILE 11 NF$ : PRINT#HF : PRINT#NF 
150 GOSUB650 

155 PRINT#NF,I $ (1>jSP$jI$< 2) 

160 PRINT#NF, l*i 3);SP$; I $ (4);SPT; I${5>;8P$; I $ (6> 

165 PR I NT#NF •' PR I NT#NF : NR=NE+4 
170 IFFSO64THEN180 

175 CLOSE1 :CLOSEHF•PRINT"MSFINITO LISTA": STOP 
180 IFNR=60THENFORK=1T06:PRINT#NF:NEXTK : NR~@ 

185 GOTO150 

190 EEM***AGGIORNAMENTO FILE*** 

195 PRINT"□«MAGGIORNAMENTO FILE" 

200 PRINT"MSMONTA NASTRO VECCHIO" 
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fi 5 GOSUE690 
?t é 60SUE595 : 60SUE605 

215 EIMC1 < N >, H1 $ < N > , 11 t < N > , P1 $ { H >, L 3. $ < N >, T 1 $ n > 

■."■20 GOSUE640 

225 FORK=1TOM 

230 INPUT#1,C1 $<K >,N1 1 <K) 

235 I NPUT# 1,11$':: K >, P1 $ < K >, L1 $ ( K > , T1 $ ( K > 

240 IFST=64THENCL.OSE1 : K1 =K : K=N : NENTK : GOTO250 
245 NEXTK:PRINT" «F ILE SUPERA NUM.MfìSS.REO.":N: ST OP 
250 PR I NT " «LETTI " i K1 ; " RECORD " : SW-0 : N=K 3. 

255 PRINT"AWv’fiRIAZIONI S/N " : INPUTRÌ 

260 I FR$0 " S " THEN280 

265 REM###MODIFICfl RECORD### 

270 GOSUB405: IFSWO0THEN280 
275 00S U B445 : G U T0270 

280 PRI NT "SIZflNCELLRZIONI S/N " ■ INPUTR* 

285 IFR$<>"S"THEN320 

290 REM**#CFiNCELLRZ10NE RECORD### 

295 PRINI"RISFONDI #### PER USCIRE" 

300 INPUT "COGNOME " ; I$( 3. ) : IFI$< 1)-"####"THEN320 
305 INPUT"NOME ": I$< 2 >:G0SUB475 
310 GOTO300 

315 REM###RISCRITTURA FILE### 

320 SW=0 ^ FF=0 : K1 “0 : N 3. = 1 

325 PRINT"«PREPARA NUOVO NASTRO" : GOSUE580 

330 G0SUB595 : G0SUB615 

335 PRINT"MINSERIMENTI S/N ":INPUTR$ 

340 I ERTO " S " THEN390 

345 REM###INSERÌMENTO NUOVO RECORD*## 

350 GOSUB405: IFSWO0THEN385 

355 IFFF=1THEN365 

360 GOSUE505 

365 IFI $ < 1 >LC$GOTO380 

370 IFI $ CI>=LC$ANDI$ <2)>LN*THEN380 

375 G0SUE685 : GOTO350 

380 G0SUE435 : LC$= I $ < 1 > : LN$= I $ <. 2 > = K .1 =K 1 + 1 : G0T0358 
385 IFFF=1THEN395 
390 G0SUE555 

395 PRINT"«FINITO AGGIORNAMENTO" 

400 PRINT"SCRITTI " K1 i " RECORD" : CLOSE3. • STOP 
405 REM LETTURA NUOVI DATI 
4 3.0 SW-0 : GOSUB700 : I FSU= 1THENRETURN 
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415 GOSUB720 

420 F0RJ=1T06 : REN TAGLIA CAMPI TROPPO LUNGHI 
425 IFLEN(I$(J))979THENI$(J>=LEFT$<I$<J),79 > 

438 RETURN 

435 REM SCRIVE NUOVO RECORD SU NASTRO 

440 FORT" 1T06 : PRI NT# 1,1$ ( J > ; CH$ ; : NEXT-J : RETURN 

445 REM RICERCA NOME E AGGIORNA 

450 FORK"1TON: IFC1$(K) = I$ <1>ANTN1$ CK> = I$<2 >THEN465 
455 NEXTK 

460 GOSUB490: RETURN 

465 11 $ < l< > = I $ < 3 > 4.1$ ( l< > = I $ ( 4 > : P1 $ ( K ? = I $ < 5 > 

■470 T1 $ ( l< = I $<6 > : K=N : NEXTK • RETURN 

475 FORNAITON:REM RICERCA NOME 

42:0 I FC 1 $< K ) = I $ v 1 ) ANDN 1 $(l< > = I $<2 > THEN500 

485 MENTK 

•490 PR I NT " JflHON TRIOVATO NOME " ; I $ < 1 ) : SP$ : I $ < 2 ) 

495 GOSUB690 : RETURN 

500 C1$CK>“SP$:K=N:NEXTK : RETURN 

505 REM RICERCA POSIZIONE NUOVO RECORD 

510 FORK-N1 TON : I FC 1 $ < K > “-3PTTHEN545 

515 IFC1$<K><I$ U>THEN540 

520 IFC1$(K> = I$(1)ANDN1$ CK><I$<2>THEN540 

525 I FC 1 $ C K = I $ ( 1 > ANDN 1 $ < K > = I $ < 2 > THEN535 

530 N1=K:K=N:NEXTK : RETURN 

535 PRINT"NONI UGUALI":GOSUB690 : GOTO530 

540 GOSUB6S0:K1-K1 +1 : LC$=C1$<K>:LN$-N1$<K> 

545 NEXTK 
550 FF=1 : RETURN 

555 REM TERMINA SCRITTURA FILE 
560 IFN1 =NAHDFF== 1THENRETURN 
565 FORK=N1TON: IFC1$ <K>=SP$THEN575 
57o GIJSUB660 • K1 “K1 +1 
575 NEXTK: RETURN 

580 REM RICHIESTA PREPARAZIONE NASTRO 
585 PRI NT "SCINTA NASTRO" = GOSUB690 
590 RETURN 

595 REM RICHIESTA NOME FILE 
600 INPUT"MNOME FILE NF$: RETURN 
605 REM RICHIESTA NUMERO RECORD 
610 I NF'UT " W0UANTI RECORD " ; N : RETURN 
615 REM APERTURA FILE PER SCRIVERE 
620 OPEN1,1,2,NF$: RETURN 
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625 REM PREPARAZIONE STAMPANTE 
6A0 PRINT"RACCENDI Lfl STAMPANTE” ; G0SUB69Q 
OPENNF, PR = RETURN 

64U REM APERTURA FILE PER LEGGERE 

645 OPEN1,1,0,NFT: RETURN 

6 5 fi REM LETTURA RECORD DA NASTRO 

655 F0RJ=1T06 : INPUT#1,I $( J>:HEXTJ : FS=ST: RETURN 

66U REM SCRITTURA RECORD NASTRO DA VETTORI 

SS5 PR I NT# 1, C1 * <:8 > ; cm ; NI ■$ < K > : CH$ ; 11 $ < l< > ; CH$ ; 

670 PR I NT# .1., P1 * ( K > ; CUT : L1 $ C K > CHT ; T1. $ ( K > 

675 RETURN 

680 REM MESSAGGIO FUORI ORDINE 
E85 PR I NT 11 «FUORI ORDI NE " I $ < 1 >SPTI $ ( 2 > : RETURN 
690 A$="" •' GETAT : IFA$=" "THEN636 : REM ATTESA TASTO 
695 RETURN 

700 REM INGRESSO NUOVI DATI 
705 PRINT'73".; : J=1 : GOSUB750 
7.1.0 IFI $ < 1 ) = " ***# " THE NSW" 1 : RETURN 
715 F0RJ”2T06 : GOSUB750 : NEXTJ: RETURN 
720 REM CONFERMA DATI E CORREZIONE 
725 PRINT"«CONFERMI S/N":INPUTRT 
730 IFRT“"S"THENRETURN 
735 INPUT"QUALE CAMPO ",J 
740 PRINTDT(J>" "; ■INPUTI$ <J> 

745 GOSUB760 : GOTO720 
750 REM RICHIESTA CAMPO 

755 PRINTJ:" ";D$<J>:" "; : INPUTI$CJ)•RETURN 
760 REM STAMPA DATI SUL VIDEO 
765 PRINT" IT ; : FORT"1T06 

770 PR I NT J" " : JjT < J > ; " " ; I ■$ < ,T > ■■ NE/T J : RETURN 
775 END 
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Dalla linea 405 alla linea 775 sono contenuti i sottoprogrammi. Quando compare 
un messaggio di segnalazione di una situazione, per proseguire si deve premere un 
tasto. 

Riportiamo un pezzo di listato del file FL3C generato. La stampa è organizzata su 
due righe per ogni record, pensando che i singoli campi siano ragionevolmente 
corti, data la loro natura. 


.ISTO FILE FL3C 


ABBIATI LINO 
PIAZZA DUOMO 3 


22222 MILANO 78654 


ALLEGRI MARIELLA 

VIALE ROSE 45 22224 CAGLIARI 678954 


AROIMBOLDI PIERINO 

PIAZZA SIENA 45 45321 MILANO 90654; 


ARROTINO GIGI 
VIA ROSSA 45 67543 


COMO 543216 


ASSOLO MARIA 

CORSO VENEZIA 1 45321 VERONA 8954; 


BELLINI GIUSEPPE 

PIAZZA VERDE 888 65789 BRESCIA 98213 


DOLLARI MARGHERITA 

BORGO VECCHIO 90 34521 SIENA 89564 
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Riportiamo un breve commento per i sottoprogrammi. 

Linee 405-430 *lettura nuovi dati 

• pone SW=0 e usa il sottoprogramma in 700 per leggere il nuovo record, 

• se torna con SW= 1 esce perchè sono finiti i dati in ingresso, 

• se no chiama il sottoprogramma in 720 per la conferma con eventuale 
correzione dei dati letti, 

• taglia i campi troppo lunghi a 79 caratteri e esce. 

Linee 435-440 ‘scrive nuovo record su nastro 

• scrive i 6 campi separati da CHR$(13) sul nastro. 

Linee 445-470 ‘ricerca nome e aggiorna 

• ricerca cognome e nome tra i record presenti nei vettori in memoria, 

• se non li trova chiama il sottoprogramma in 490 per segnalare il fatto e esce, 

• se li trova sostituisce i nuovi dati a quelli vecchi e esce. 

Linee 475-500 ‘ricerca cognome e nome 

• ricerca cognome e nome in memoria, 

• se li trova pone 3 spazi al posto del cognome per eliminare il record e esce, 

• se non li trova stampa il messaggio di segnalazione, chiama il sottoprogram¬ 
ma in 690 e poi esce. Qui, linea 490, si trova un’entrata indipendente per l’ultimo 
pezzo del sottoprogramma. 

Linee 505-550 ‘ricerca posizione nuovo record 

• salta nella ricerca i record cancellati, 

• va a riscrivere i record, che precedono per cognome e nome il nuovo record, 
con il sottoprogramma in 660, 

• se trova cognome e nome uguali, lo segnala e esce, 

• se trova la posizione esce con FF=0, 

• se termina i dati memorizzati esce con FF=1. 

Linee 555-575 ‘termina scrittura file 

• se il file non è ancora terminato lo finisce di scrivere usando il sottoprogram¬ 
ma in 660. 

Linee 580-590 ‘richiesta preparazione nastro 

• chiede di montare il nastro e attende la pressione di un tasto per continuare. 

Linee 595-600 ‘richiesta nome file 

• richiede il nome del file da elaborare. 
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Linee 605-610 ‘richiesta numero record 

• richiede il numero N dei record. 

Linee 615-620 ‘apertura file per scrivere 

• apre il file per scrivere. 

Linee 625-635 ‘apertura stampante 

• apre la stampante. 

Linee 640-645 ‘apertura file per leggere 

• apre il file per leggere. 

Linee 650-655 ‘lettura record da nastro 

• legge un record dal nastro. 

Linee 660-675 ‘scrittura record su nastro 

• scrive un record sul nastro prelevandolo dai vettori in memoria. 

Linee 680-685 ‘messaggio dati fuori ordine 

• segnala il cognome e il nome trovati fuori ordine. 

Linee 690-695 ‘attesa tasto per continuare 

• attende la pressione di un tasto per proseguire. 

Linee 700-715 ‘lettura dati da tastiera 

• chiede il primo campo (sottoprogramma in 750) e se riceve ““ pone S W= 1 
e esce, 

• se no chiede gli altri 5 campi e esce. 

Linee 720-745 ‘conferma dati e correzione 

• chiede conferma dei dati presenti sul video, 

• se non riceve conferma chiede quale campo modificare e lo modifica, 

• se riceve conferma esce. 

Linee 750-755 ‘richiesta campo 

• chiede un campo, lo legge e esce. 

Linee 760-770 ‘stampa record sul video 

• stampa il record sul video e esce. 
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CAPITOLO 3 


FILE SU DISCO 


3.1 Unità 1541 

L’unità 1541 è una periferica intelligente; essa contiene il microprocessore 6502, che 
lavora in modo indipendente dopo aver ricevuto i comandi dalla CPU del calcola¬ 
tore. Le parti componenti l’unità sono: 

• il microprocessore 6502, 

• 16K di memoria ROM, contenenti il DOS (Disk Operating System), 

• 2K di memoria RAM per i buffer e le memorie di lavoro, 

• l’interfaccia seriale tipo IEEE488, 

• due porte di comunicazione, 

• le parti elettromeccaniche necessarie. 

Le due porte di comunicazione consentono di collegare più di una unità 1541 al 
calcolatore, si può arrivare a cinque unità disco più una stampante, che comunica¬ 
no a turno tramite il bus seriale. 



Fig. 3.1 COLLEGAMENTO TRA CALCOLATORE, UNITA’ 1541 E STAMPANTE MPS801 


43 



Nella parte anteriore dell’unità sono presenti due indicatori luminosi; il più esterno, 
a luce verde, se acceso indica che l’unità è pronta a lavorare (READY), il più 
interno, a luce rossa, sta acceso mentre è in corso fisicamente una operazione di 
lettura o scrittura da o su floppy. Questo indicatore lampeggia quando si verifica 
una condizione di errore. 



Fig. 3.2 PARTE ANTERIORE UNITA' 1541 


Al COMMODORE 64 possono essere collegate fino a 5 unità 1541, in tale caso i 
numeri identificativi partono da 8 e possono arrivare a 12. 

I dischetti (floppy) per l’unità 1541 sono gli standard 5 e 1/4”, singola faccia, 
singola densità. 


3.2 DISCHETTO 

Il dischetto (floppy) è contenuto in una busta protettiva di plastica e deve essere 
maneggiato con cura. 
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Flg. 3.3 DISCHETTO 


Nella figura 3.3 sono visibili le.aperture che reca la busta di plastica protettiva; la 
più grande serve per comunicare con la testina di lettura e scrittura, il foro piccolo 
serve per l’allineamento (corretta inserzione), la finestra laterale, se chiusa impedi¬ 
sce di scrivere sul dischetto, e, quindi, serve di protezione. Il dischetto non deve mai 
essere toccato nelle zone delle aperture. Esso va inserito nell’unità secondo la 
direzione indicata in figura, quando sulla stessa è acceso l’indicatore luminoso 
verde. Inoltre, il dischetto non deve mai essere estratto quando è acceso l’indicatore 
rosso, e non deve essere lasciato in loco quando si toglie corrente all’unità 1541. 


Il dischetto viene registrato secondo tracce concentriche; sul tipo usato per l’unità 
1541 sono disponibili 40 tracce su una sola faccia, ma ne vengono usate dall’unità 
solo 35. Su ogni traccia l’unità di informazione trasferibile in una operazione di 
Input o Output è il SETTORE, che è il blocco fisico di questo tipo di supporto. Il 
settore è una parte di traccia, delimitata da due raggi che partono dal centro. 


Ovviamente le dimensioni fisiche di un settore variano tra tracce diverse, ma la 
quantità di informazioni registrabile è sempre la stessa, per l’utente sono disponibili 
256 byte per settore. Inoltre, il numero di settori disponibili sulle diverse tracce non 
è sempre lo stesso. 
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Flg. 3.4 SCHEMA NON IN SCALA DI UN DISCHETTO 


Il dischetto quando è nuovo non risulta immediatamente utilizzabile; infatti su di 
esso non sono state registrate le suddivisioni necesssarie per poterlo usare, cioè le 
tracce e i settori. Il DOS fornisce il comando necessario per preparare il dischetto 
all’uso, tale operazione prende il nome di FORMATTAZIONE. Dopo la formatta¬ 
zione il dischetto reca su di sè tre tipi di indicazioni: 

• quelle che permettono di distinguerlo da un altro dischetto, 

• quelle che danno notizie del suo contenuto, 

• quelle che marcano gli indirizzi di traccia e settore. 
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Il nome che identifica il dischetto è formato da due parti: 

• il nome vero e proprio di 18 byte al massimo, 

• la ID, identificazione del dischetto di 2 caratteri. Questa indicazione è, come 
vedremo, molto importante; tra l’altro consente di distinguere tra loro una serie di 
dischetti ai quali è stato attribuito lo stesso nome. 

Nella tabella 3.1, che segue, riportiamo la suddivisione in tracce e settori. 


Tab. 3.1 FORMATO DEL DISCHETTO 


Numero traccia 

Numero settori 

Numerazione settori 

da 1 a 17 

21 

da 0 a 20 

da 18 a 24 

19 

da 0 a 18 

da 25 a 30 

18 

da 0 a 17 

da 31 a 35 

17 

da 0 a 16 


Come risulta dalla tabella 3.1, sono disponibili: 


17 tracce da 21 settori 

17*21 = 357 

7 tracce da 19 settori 

7*19 = 133 

6 tracce da 18 settori 

6*18 = 108 

5 tracce da 17 settori 

5*17= 85 

totale settori 

= 683 


La traccia 18, di 19 settori, ha un utilizzo particolare, che passiamo a descrivere. 
Il dischetto non può essere utilizzato se non contiene un indice di riferimento, come 
un qualunque libro, dove siano registrati i nomi dei file e i loro indirizzi sul 
dischetto stesso. Infatti il dischetto non è come il nastro un supporto di tipo 
sequenziale, su di esso si può registrare dove si vuole, e, se non si sa dove sono 
registrati i file, non si può utilizzarli. 
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La traccia 18 è utilizzata nel seguente modo: 

• settore 0, byte da 0 a 143,per la mappa di occupazione del dischetto, chiamata 
BAM (Block Availability Map); 

• settore 0, byte da 144 a 255, per l’identificazione del dischetto (blocco di 
testata per l’indice del disco, che viene chiamato DIRECTORY); 

• settori da 1 a 19 indice del disco (DIRECTORY). 

I 144 byte della BAM sono utilizzati come segue: 

• byte 0 e 1 , come concatenamento al settore seguente, contengono 18 e 01 
(traccia 18, settore 1 ); 

• byte 5, contiene 65, codice ASCII della lettera A, che indica il formato 
dell’unità, tipo 4040; 

• byte 3, contiene lo 0 binario (tutti bit 0) e non ha significato, 

• byte da 4 a 143, contengono la mappa dei settori occupati: sono utlizzati 4 
byte per ogni traccia, quindi si hanno 35 gruppi di 4 byte (35*4= 140). Ogni quartina 
è utilizzata cosi: 

• primo byte: numero settori ancora disponibili nella traccia, 

• secondo byte: mappa dei primi 8 settori della traccia, utilizzando i bit a 
partire dai meno significativi (il bit più a destra per il settoreO, il bit più a sinistra per 
il settore 7), 

• terzo byte: mappa degli altri 8 settori della traccia dal settore 8 (bit più a 
destra) al settore 15 (bit più a sinistra), 

• quarto byte: mappa degli altri settori della traccia a partire dal 16. Per il 
gruppo di tracce con 21 settori sono utilizzati gli ultimi 5 bit a destra, per il gruppo 
di tracce con 19 settori sono utilizzati gli ultimi 3 bit, per quello con 18 settori gli 
ultimi 2 e per quello con 17 settori solo l’ultimo bit. 

Come vedi, la mappa del disco si serve di un bit per ogni settore, se il bit è 1, il settore 
è libero, se è 0 , il settore è occupato. 

1112 byte della seconda parte del settore 0 sono utilizzati per l’identificazione del 
dischetto in questo modo: 

• byte da 144 a 161, 18 byte utilizzati per il nome del disco, se il nome è più 
corto ad esso viene aggiunto il carattere di codice ASCII 160, corrispondente a 
spazio + SHIFT (spazio inverso); 

• byte 161 e 162, i due caratteri della ID del disco; 

• lyyte 163, un codice 160; 

• byte 165 e 166, contengono i caratteri 2A per versione del DOS e formato 
dischetto; 

• byte da 167 a 170, 4 codici 160; 

• byte da 171 a 255, sono 85 byte non utilizzati. 
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I settori da 1 a 18 della traccia 18 sono utilizzati per la DIRECTORY del disco; in 
ogni settore è possibile registrare l’indice di 8 file. In conseguenza un disco può 
contenere solo 144 file diversi (18*8=144), e, se ciascuno di essi è abbastanza corto, 
possono restare settori inutilizzati. Come vedremo nel seguito, è anche possibile 
registrare settori del disco senza mantenerne indicazione nell’indice, però è una 
pratica non raccomandabile. 

Ogni registrazione di file nell’indice prende il nome di ENTRATA (ENTRY) e 
occupa 30 byte. 

La struttura di ogni settore è la seguente: 

• byte 0 e 1, contengono il concatenamento al settore seguente, la traccia in 0 e 
il settore in 1; se il settore è l’ultimo della catena il byte 0 contiene lo zero binario e il 
byte 1 contiene il puntatore all’ultimo byte utilizzato (255 se tutto il settore), 

• byte da 2 a 31, entrata 1, 

• byte 32 e 33, 2 caratteri separatori contenenti zero binario, 

• byte da 34 a 63, entrata 2, 


• byte 224 e 225, 2 caratteri separatori, 

• byte da 226 a 255, entrata 8. 

Per ogni entrata di file sono registrate le seguenti informazioni: 

• byte 0, tipo del file: 

tutti bit 0 per file cancellato (DEL), 

128 + 1 per sequenziale (SEQ) 

128+2 per programma (PRG) 

128 + 3 per utente (user) (USR) 

128+4 per relativo (REL), 

• byte 1 e 2, indirizzo di traccia e settore del primo blocco del file, 

• byte da 3 a 18, 16 byte che contengono il nome del file, se il nome è più corto 
sono aggiunti codici 160, 

• byte 19 e 20, usati solo per i file relativi, contengono gli indirizzi di traccia e 
settore del primo blocco SIDE SECTOR (indice interno del file relativo), 

• byte 21, usato solo per i file relativi, contiene la lunghezza del record, minore 
di 255, 

• byte da 22 a 25, 4 byte non usati, 

• byte 26 e 27, traccia e sentore del file rimemorizzato, cioè del file che è stato 
memorizzato con lo stesso nome dopo una OPEN@, 

• byte 28 e 29, numero di blocchi occupati dal file, precede il byte basso (nel 
calcolo: contenuto byte 28 + 256 * contenuto byte 29). 
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Precedentemente abbiamo calcolato che nel dischetto sono disponibili 683 settori, 
dato che la traccia 18 è usata per la DIRECTORY, i settori disponibili per l’utente 
sono 683-19=664. Se, dopo la formattazione del dischetto, richiedi la stampa della 
directory, puoi vedere le indicazioni sulla identificazione del dischetto, nessuna 
entrata di file, e ti vengono dichiarati liberi 664 blocchi. 

Quando inserisci il dischetto nell’unità 1541 vedi accendersi per poco la spia rossa e 
senti girare il dischetto. Avviene l’operazione di INIZIALIZZAZIONE, da non 
confondere con la formattazione; essa consiste nel fatto che il dischetto viene fatto 
girare fino ad ottenere l’allineamento della testina di lettura con l’inizio delle tracce 
e viene letto il settore 0 della traccia 18 in uno dei buffer di 256 byte dell’unità. 
Questa operazione è ESSENZIALE, infatti, se non è nota la situazione di occupa¬ 
zione delle tracce e dei settori, si rischia di andare a scrivere su settori già preceden¬ 
temente occupati. La BAM deve risiedere nella RAM dell’unità 1541 per poter 
operare sul dischetto e deve essere riscritta sul dischetto quando viene modificata la 
situazione. Per questa ragione è assolutamente necessario chiudere i file sui quali si 
opera; l’operazione di chiusura fa avvenire, se necessario, la riscrittura della BAM. 
Un dischetto, che contenga una BAM non corrispondente alla sua reale situazione 
di occupazione dei settori, è praticamente inutilizzabili con le normali operazioni 
BASIC. 

Riepiloghiamo la differenza che esiste tra le due operazioni: FORMATTAZIONE e 
INIZIALIZZAZIONE: 

• la formattazione agisce sul supporto dischetto, annulla le precedenti registra¬ 
zioni e memorizza la nuova identificazione, dopo aver registrato gli indirizzi di 
traccia e settore; 

• l’inizializzazione allinea il dischetto nell’unità e carica nella RAM dell’unità 
le informazioni necessarie. 

Ovviamente non viene caricata la DIRECTORY; ci vorrebbe troppo spazio. La 
DIRECTORY viene letta quando si apre un file; essa serve per fornire l’indirizzo di 
inizio del file e le altre informazioni necessarie per il tipo di file in uso. Essa viene in 
parte riscritta quando si chiude un file ed è necessario registrare modifiche nell’en¬ 
trata ad esso relativa. 


Abbiamo parlato di settori (BLOCCHI FISICI) di 256 byte. In realtà ogni settore 
contiene più di 256 byte, infatti in esso sono registrati anche alcuni caratteri di 
controllo, gli indirizzi di traccia e settore, un numero che rappresenta (CHECK- 
SUM) la somma di tutti i bit 1 registrati nella parte di settore a disposizione 
dell’utente, e serve a controllare la bontà della registrazione. In sostanza in ogni 
settore sono presenti due parti: quella a disposizione del sistema, con un suo 
controllo di checksum, e quella a disposizione dell’utente di 256 byte. 
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Al programmatore interessa imparare a gestire i suoi 256 byte. Questi, in realtà, si 
riducono a 254, infatti il byte 0 e il byte 1 sono usati dal sistema per concatenare tra 
loro i settori di un file, ponendo in essi l’indirizzo della traccia e del settore 
logicamente seguente, che di solito non è quello fisicamente adiacente. Approfondi¬ 
remo meglio queste cose nel seguito. 

Tra i settori esiste una zona disco inutilizzata, chiamata GAP. 

Riportiamo nella tabella 3.2 le caratteristiche del dischetto. 


Tab. 3.2 CARATTERISTICHE TECNICHE DISCHETTO 


Capacità totale: 174848 byte (683*256) 

Capacità per file sequenziali: 168656 byte (664*256-664*2 (byte di 
concatenamento)) 

Capacità per file relativi: 167132 byte (664*256 - 664*2 (concatenamento) 

- 254*6 (side sector)), con numero massimo di record logici per file 65535 

Entrate nella directory: 144 

Settori per traccia: da 17 a 21 

Byte per settore: 256 

Tracce: 35 

Totale settori: 683, di cui disponibili 664 


3.3 Disk Operatlng System (DOS) 

Il DOS (Disk Operating System) risiede nella ROM del disco; esso provvede all’ese¬ 
cuzione dei comandi che vengono trasmessi all’unità 1541 dal Sistema Operativo 
del calcolatore. Il calcolatore invia comandi o dati tramite l’interfaccia seriale, il 
DOS interpreta i comandi e li esegue, scrive o legge il dischetto, gestisce la BAM e la 
DIRECTORY. 

Il linguaggio BASIC mette a disposizione i 5 comandi già noti: 

OPEN, CLOSE, PRINT#, GET#, INPUT# 

• il parametro “lfn”, numero logico del file, ha sempre il solito significato di 
numero logico identificatore del file, 

• il parametro “dn”, se si usa una sola unità 1541, ha il valore 8, 
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• il parametro “sa”, noto fino ad ora come “indirizzo secondario”, gioca un 
ruolo molto importante, infatti in base al suo valore il DOS stabilisce se riceve 
comandi o dati dal calcolatore. 

Secondo la terminologia in uso nei manuali della Commodore, il parametro “sa” 
viene chiamato CANALE. Nel seguito ci atteniamo anche noi a questa terminolo¬ 
gia. Il CANALE può avere valori da 0 a 15, con i seguenti significati: 

• sa=15, apre il canale 15 per invio di comandi al DOS, o per invio di 
segnalazioni speciali da parte del DOS; 

• sa=0 e sa=l, aprono rispettivamente i canali 0 e 1 per l’esecuzione dei 
comandi LOAD e SA VE, cioè trasferimento di programmi tra disco e calcolatore e 
viceversa; 

• sa=2,...,14, apre il corrispondente canale per il trasferimento di dati. 

Sia con il comando OPEN, che con il comando PRINT#, possono essere inviate al 
DOS stringhe di comandi, come vedremo nel seguito. Quando il DOS riceve un 
comando che comporta l’apertura di un canale, esso assegna al canale lo spazio 
necessario per lavorare e mette a disposizione uno dei suoi buffer in RAM. 
Sull’unità sono disponibili 8 buffer di 256 byte ciascuno; di essi 4 sono impegnati 
per il canale dei comandi, la BAM, le variabili di lavoro e il controllo delle 
operazioni. Restano, in conseguenza, liberi solo 4 buffer e il numero dei file gestibili 
contemporaneamente risulta di 3 o di 4, a seconda del tipo di file. 

Il DOS consente di gestire 4 tipi di file: 

• Programmi (PRG) 

• Sequenziali (SEQ) 

• Random (USR, o senza specifica di tipo, cioè collegabili con gli User, che 
sono sequenziali, per farne comparire l’entrata nella Directory) 

• Relativi (REL). 


3.4 Comandi per la gestione del disco 

Ci occupiamo qui dei comandi che consentono di operare con il dischetto, indipen¬ 
dentemente dal tipo di file coinvolto; essi possono essere usati sia in modo immedia¬ 
to, che da programma. Questi comandi sono già stati trattati nel volume dedicato al 
BASIC, ma ci sembra utile riportarli anche in questa sede per completezza nell’e¬ 
sposizione dell’argomento. 

Si tratta di una serie di comandi da inviare al disco sul canale 15 dei comandi. 
L’operazione necessaria per creare la comunicazione è: 

OPEN lfn,8,15 
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cioè abbiamo usato: dn=8 e sa=15. 

Nel seguito usiamo sempre dn=8, dato che supponiamo di avere una sola unità 
1541 collegata al calcolatore. 

Abbiamo usato sa=I5 perchè dobbiamo, aprire il canale dei comandi. 

Di solito, solo per la comodità di ricordare un solo numero, noi usiamo: 

OPEN 15,8,15 

cioè poniamo lfn=15, ma Ifn può essere un numero qualunque, purché minore di 
255, anzi meglio se minore di 127. Abitualmente per Ifn si usano numeri piccoli. 
A questa OPEN, che apre il canale dei comandi, può seguire una istruzione: 

PRINT# Ifn, stringa-comandi 

che trasmette il comando al DOS. Si può, però, procedere in altro modo, incorpo¬ 
rando la stringa dei comandi nella OPEN stessa, così: 

OPEN 15,8,15,stringa-comandi 

ottenendo esattamente lo stesso effetto. In ambedue i casi l’operazione deve essere 
conclusa con: 

CLOSE 15 (o CLOSE Ifn) 

infatti se non adoperi la CLOSE, e in seguito usi ancora OPEN con lo stesso 
numero per Ifn, avrai una segnalazione di errore, perchè cerchi di aprire un canale 
già aperto. 

Dopo queste premesse, nel seguito esaminiamo le stringhe comando da trasmettere 
in uno dei due modi possibili. Devi tener presente che una stringa comando non 
deve superare 40 caratteri. 

I comandi disponibili sono: 

NEW, per la formattazione del dischetto 
INITIALIZE, per l’inizializzazione del dischetto 

VALIDATE, per sistemare la BAM in base alle entrate della Directory 

COPY, per copiare un file 

RENAME, per cambiare nome a un file 

SCRATCH, per cancellare un file. 

Ogni comando può essere citato usando il nome per esteso, o limitandosi alla prima 
lettera del nome. 
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NEW 


può servire per due scopi diversi: 

• preparazione di un disco nuovo per l’uso: vengono registrati gli indirizzi di 
traccia e settore, viene registrato il nome e la identificazione del disco, viene 
preparata la BAM e viene predisposto lo spazio per la Directory; 

• cancellazione di un disco già usato, mantenendo la stessa identificazione, 
ma senza riscrivere gli indirizzi. 

La stringa-comando si scrive: 

“Ndr:fn,xx” 

dove: 

N identifica il comando e può essere anche NEW, 

dr, è il numero del drive, e, se è collegato una unità con un solo disco, come la 
1541, risulta 0 e può essere omesso (l’unità 4040 ha due drive, per esempio, 0 e 1), 
fn, è il nome del disco, 
xx, è la 1D (identificazione del disco). 

Per formattare un dischetto assegnandogli il nome MAGAZZINO e la ID=33 si 
può scrivere: 

OPEN 15,8, !5,“N0:M AGAZZINO,33”:CLOSE 15 
oppure: 

OPEN15,8,15:PRINT#15,“NO:MAGAZZINO,33”:CLOSE15 

Qualora nel comando si omettano i due caratteri della ID e si usi un disco già 
precedentemente formattato, si ottiene la cancellazione del contenuto del dischetto, 
che mantiene la ID già registrata; se il nome è diverso dal precedente, esso viene 
modificato. Ovviamente tale operazione, diciamo ridotta, risulta più veloce di una 
formattazione completa. NON SI PUÒ’ USARE IL COMANDO SENZA ID PER 
FORMATTARE UN DISCO NUOVO. 

INIZIALIZE 

serve per allineare la testina di lettura e scrittura all’inizio della traccia e per caricare 
la BAM nella memoria dell’unità. Meglio eseguire troppo spesso questa operazio¬ 
ne, che non eseguirla mai. In realtà, quando si inserisce il dischetto nell’unità 
l’operazione di inizializzazione deve avvenire automaticamente, ma, in qualche 
caso, si può avere qualche intoppo. Ti raccomandiamo quindi di eseguire da 
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programma, o in immediato, l’inizializzazione, quando cambi il dischetto. Non 
eseguire da programma la funzione “I”, se non hai prima chiuso i file. La stringa è 
molto semplice: 

“I” oppure “IO” oppure “INITIALIZE” 

VALIDATE 

serve per rimettere ordine in un dischetto disastrato; si deve usare il comando se è 
successo qualcosa di irregolare, e se, per esempio, ti accorgi che la somma dei 
blocchi occupati più quelli liberi (basta listare la Directory) non dà 664. Una cosa 
irregolare può essere l’interruzione di un programma, prima che siano andate a 
buon fine tutte le operazioni di scrittura dei file su disco, cioè senza chiudere i file 
aperti (in questo caso compaiono degli asterischi nella Directory). Il commando 
agisce in questo modo: 

• rigenera la BAM in base alle entrate regolari presenti nella Directory, 

• cancella dalla Directory le entrate irregolari. 


Abbiamo visto che nell’entrata di un file è registrato l’indirizzo di traccia e settore 
del primo blocco; i blocchi successivi sono concatenati tra loro per mezzo dei primi 
due byte di ogni settore, e il blocco di chiusura reca nel primo byte lo zero binario. Il 
sistema, seguendo la catena, può rigenerare lo stato della BAM. Da quanto 
abbiamo detto risulta che NON DEVE ASSOLUTAMENTE essere eseguita que¬ 
sta operazione se un dischetto contiene delle registrazioni, tipo file RANDOM, che 
non hanno una corrispondente adeguata entrata nella Directory. La stringa è molto 
semplice: 

“VO” oppure “V” oppure “VALIDATE” 

COPY 

consente di ottenere copie di un file assegnandogli nomi diversi, oppure di fondere 
più file, fino a 4, in un unico file. Chiamiamo “dfn” il nome del file destinazione, e 
“sfn” il nome del file sorgente. Il file sorgente (o i file sorgenti) deve essere stato 
regolarmente chiuso prima di questa operazione. Le stringhe comando possibili 

sono: 

“C0:dfn=sfn” per una copia 
“C0:dfn : =sfnl,sfn2,sfn3,sfn4” per fondere più file 
ovviamente il file sorgente resta inalterato. 
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RENAME 


serve per cambiare il nomedi un file. L’operazione differisce dalla copiatura, infatti 
il file resta registrato dove si trova, ma, nella sua entrata nella Directory, viene 
cambiato il nome. Chiamiamo “nfn” il nome nuovo, e “ofiT’il nome vecchio. Si 
scrive: 

“R0:nfn=ofn” oppure “RENAME:nfn=ofn” 

11 file ofn deve essere stato correttamente chiuso prima di operare con RENAME. 


SCRATCH 

cancella i file che non servono più dal disco, ponendo il tipo DEL, cioè tutti bit 0, 
nel primo byte della sua entrata nella Directory, e rendendo disponibili nella B AM i 
settori che il file occupava. Con un solo comando possono essere cancellati più file. 
Si scrive: 

“S0:fn” per cancellare un file 
“S0:fnl,fn2,...,fnl” per cancellare 1 file. 

Ti consigliamo di usare il comando SCRATCH quando desideri riscrivere un file 
che esisteva precedentemente, invece di usare il carattere nella OPEN, o nella 
SA VE, per i file di programma. Infatti il carattere produce a volte risultati non 
desiderabili. 

Per caricare in memoria la Directory del dischetto si usa questa sequenza: 

OPEN 15,8,15:LOAD“$”,8 

se vuoi listarla sul video, devi scrivere: 

LIST 

se, invece, vuoi listarla sulla stampante: 

OPEN4,4:CMD4:LIST 
e poi: PRINT#4:CLOSE4 


56 



Il sistema usa anche per i file su disco la parola di stato ST; quando ST=64, dopo 
una operazione di lettura, significa che si è raggiunta la segnalazione di fine file. 

Il DOS consente di fare una analisi più precisa dell’andamento delle operazioni 
disco, richiamando tramite il canale 15 (comandi/errori) quattro variabili, che di 
solito si usa chiamare, con significato mnemonico: EN, EM$, ET, ES. Il significato 
del contenuto delle variabili è il seguente: 

EN, numero del messaggio di segnalazione, 

EM$, descrizione del messaggio, 

ET, numero della traccia del dischetto che ha generato la segnalazione, 

ES, numero del settore nella traccia. 

Al posto di queste variabili, puoi usarne anche altre, esse possono essere tutte 
variabili stringa, oppure, come abbiamo fatto noi, solo la seconda stringa, e le altre 
numeriche. 

Devi operare così: 

OPEN15,8,15:PRINT#15,EN,EM$,ET,ES:CLOSE15 

Quando scrivi un programma che gestisce file su disco devi ricordare le seguenti 
cose: 


• Aprire il canale 15, che serve anche per la segnalazione degli errori. 

• Non chiudere il canale 15, se nel programma sono ancora aperti altri 
canali, infatti la chiusura del canale 15 provoca la chiusura di tutti gli altri canali per 
il DOS, mentre nel programma (tabellina dei file aperti nella RAM del calcolatore) i 
file risultano ancora logicamente aperti. 

• Qualora avvenga una segnalazione di errore, dal punto di vista della logica 
del programma, vengono chiusi tutti i file, che però restano aperti per il DOS, allora 
devi scrivere in immediato: 

OPEN15,8,15:CLOSE15 per sistemare le cose. 

• I comandi NEW, INITIALIZE e VALIDATE chiudono tutti i canali 
associati al disco e quindi rovinano eventuali file che non siano prima stati chiusi 
correttamente. 
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3.5 File SEQUENZIALI di dati 


I file SEQUENZIALI di dati su disco hanno caratteristiche analoghe a quelle dei 
file sequenziali su cassetta. 

L’utente deve stabilire la struttura del record logico e dei campi che lo compongo¬ 
no. I campi possono essere di lunghezza fissa o variabile e in conseguenza anche i 
record logici. L’utente non deve preoccuparsi del collegamento tra record logico e 
blocco fisico; esso è a carico del sistema. I dati vengono inviati dal calcolatore 
all’unità 1541 carattere per carattere, il DOS provvede ad ammucchiarli nel buffer 
messo a disposizione al momento della OPEN del file. Quando il buffer è pieno i 
dati vengono scritti in un settore del dischetto; i primi due byte del settore sono usati 
per il concatenamento al settore successivo. In questo caso non è noto a priori 
l’indirizzo del buffer, che risiede nella RAM dell’unità 1541. 

Ogni campo deve essere separato dal campo seguente da un carattere separatore 
valido, che può essere la virgola (CHR$(44)) o il RETURN (CHR$(13)). Vale la 
regola che, se i dati devono essere letti con INPUT#, non possono essere presenti 
più di 79 caratteri tra due RETURN. Inoltre, se si è usato come carattere separatore 
registrato la virgola, tutti i campi compresi tra due RETURN devono essere letti 
con una sola istruzione INPUT#, che rechi nella lista un numero sufficiente di nomi 
di variabili. Qualora il file venga letto solo con GET#, si ha una maggiore libertà. I 
separatori usati nella lista dati della PRINT# tra le variabili agiscono come per la 
cassetta: la virgola aggiunge spazi, il punto e virgola no. 

Si può interrogare la parola di stato ST per accorgersi della fine del file in lettura 
(ST=64), oppure si può analizzare, servendosi del canale 15, la situazione delle 
variabili EN, EM$, ET e ES. 

I file devono essere aperti con OPEN, elaborati in scrittura o lettura, e chiusi con 
CLOSE. Se si opera correttamente viene registrata, nella fase di scrittura del file, 
una entrata nella Directory, recante tutte le indicazioni necessarie a gestire il file. 
Come per la cassetta, questi file possono solo essere scritti in sequenza partendo dal 
primo record, oppure letti in sequenza. L’aggiornamento di un file sequenziale su 
dischetto può solo essere ottenuto riscrivendo completamente il file. Però, nel caso 
del dischetto, si può lavorare meglio che con la cassetta, infatti per aggiornare un 
file si può: 

• aprire il file preesistente in lettura, 

• aprire un nuovo file con nome diverso per scrittura, 

• copiare ordinatamente i record dal vecchio file nel nuovo file, apportando via 
via le modifiche o le aggiunte, 

• chiudere alla fine i due file, cancellare il vecchio file, e cambiare il nome al 
nuovo file, attribuendogli il nome vecchio. 
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Passiamo ora ad esaminare le istruzioni BASIC disponibili. 
OPENlfn,dn,sa,“dr:fn,ft,md” 

deve essere usata per aprire un file. I parametri, che possono essere costanti o 
variabili, hanno il seguente significato: 

Ifn, numero logico del file, da 1 a 127 

dn, 8 per una unità 1541 

sa, indirizzo secondario da 2 a 14 (canale) 

dr, numero dell’unità, 0 o si omette 

fn, nome del file, è quello che compare nella directory 

ft, tipo=S 

md, modo, può essere: W per scrivere 
R per leggere. 

Nella stringa, dopo sa, si può inserire prima dei il carattere se md= W, per 
ottenere di cancellare un eventuale file già presente con lo stesso nome, prima di 
creare il nuovo file. Ti consigliamo di usare il comando SCRATCH quando vuoi 
cancellare un file, e di ricorrere raramente al carattere 

La OPEN svolge la sua solita azione dal punto di vista del programma BASIC, e, 
inoltre, provoca da parte del DOS quelle azioni che sono necessarie per poter 
trattare un file su dischetto. Tali azioni sono diverse in dipendenza dal carattere md. 
Infatti, se md=R, viene cercato nella Directory il file indicato, e, se non trovato, 
viene segnalato un errore, mentre se md=W, e viene trovato un file con il nome 
indicato (in assenza del carattere @ nella stringa) viene segnalato un errore. Viene 
in tutti i casi predisposto un buffer per le operazioni relative al file. 

PRINT#lfn,lista 

provoca la scrittura dei dati della lista sul file contraddistinto dal numero logico lfn. 
Non ripetiamo le considerazioni già fatte sulla “lista”. 

Ti facciamo, però, notare, che in questo caso possono essere aperti contemporanea¬ 
mente più file su disco, per lettura e scrittura, e si può operare di volta in volta su 
quello che interessa e viene specificato dal numero lfn. Il numero massimo di file 
sequenziali gestibili contemporaneamente sul dischetto è 3. 

INPUT#Ifn,lista 

legge dal file, aperto in lettura con il numero logico lfn, tanti dati quanti corrispon¬ 
dono alle variabili della lista. Se i nomi delle variabili sono di tipo errato (variabili 
numeriche in presenza di dati non numerici), si ha segnalazione di errore. Analoga¬ 
mente, se i dati contengono troppi caratteri (stringhe più lunghe di 79 caratteri tra 
due RETURN) si ha una segnalazione di errore. Ricordiamo che si possono perdere 
dati, registrati separandoli con il carattere virgola, se la lista non è congrua alla 
situazione del file. 
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GET#lfn,lista 


legge dal file, aperto in lettura con numero logico lfn, un carattere per volta. È 
opportuno che la lista contenga solo variabili stringa. 

CLOSElfn 

chiude il file aperto con numero logico lfn. Se il file è di scrittura, viene scritto 
l'ultimo blocco registrando il carattere di EOF (End Of File), e viene aggiornata la 
Directory. Se il file è di lettura viene chiuso senza modificare la situazione del 
dischetto, ma risulta ugualmente necessario chiuderlo. 

Riportiamo il programma PRFSDISCOl, come esempio. Questo programma è 
stato ottenuto modificando il programma PRFL1C, relativo alla cassetta, per 
mostrare come la scrittura di un file sequenziale avviene nello stesso modo anche 
sul dischetto. 


1 0 

15 

20 

-~icr 

i-J 

30 

35 

40 

45 

50 

55 

6y 

65 

70 

75 

80 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


90 

95 

100 

105 

110 

115 

120 

125 


PRFSDISCOl 

CREAZIONE FILE SEQUENZIALE 
RECORD LOGICO FORMATO Dfì 3 CAMPI 
CAMPI DI LUNGHEZZA VARIABILE 
A$*COGNOME 
B$«N0ME 

C$4-DAT0 NUMERICO LETTO COME STRINGA 
SEPARATORE DI CAMPO = CHR$<13) 

UN SOLO PRINT SCRIVE IL RECORD 
SENZA PUNTEGGIATURA FINALE 
IL SISTEMA AGGIUNGE CHR$U3) 

ALLA FINE DEL RECORD 

COME SEPARATORE TRA LE 
PER NON AGGIUNGERE SPAZI 
CH$-CHR$<13>:0PEN2,8,2,"FSDIS 
V$=CHR$<44):PV$=CHRT<59> 

CD$= " 

PRINT"3": INPUT"COGNOME : ";A$ 

INPUT"HOME: ET 

INPUT"NUMERO:";C$ 

PRINT#2, m ;CHT; ET;CHT;C$ 

PRINT#2,AT,CHt,ET,CHT,C$ 

PRINT#2, AT; V$;ET.:VT.;CT 
PRINT#2,AT;Pv$; ET;PVT;c$ 


VARIABILI 


:u,s,M" 
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130 R$=" ": FRINT CD$1"ALTRO RECORD (S/H>? 

135 GETR$ : IFR$=""THEN135 
140 IFR$0"S"THEN 155 
145 G0T035 
155 CL0SE2 

160 OPEN2,8,2,"FSDISCO1,S,R":0FEN4,4 
165 PRINT#4,"FILE LETTO CON GET#" : PRINT#4 
170 GET#2,R$:TS=3T:FRINT#4,R$;”#"; 

175 IFTSO64THEN170 

180 F'R I NT#4 : CL0SE2 : CL0SE4 

135 0PEN2,8,2," FSD I SCO 1, S, R ,! : 0PEN4,4 

200 FRINT#4,"FILE LETTO CON INPUT#": FRINT#4 

205 I NF'IJT#2, R$ : TS~ST : FR I NT#4, Rf 

210 IFTSO64THEN205 

215 FRINT#4 :CL0SE2 : CL0SE4: STOP 


Abbiamo fatto girare il programma caricando due record identici a quelli usati per 
provare il corrispondente programma PRFL1C e abbiamo ottenuto gli stessi 
risultati, che seguono, senza ripetere i commenti, per i quali ti rimandiamo al 
Paragrafo 2.2. Ti raccomandiamo di confrontare tra loro i due programmi, per 
rilevare le differenze nella stesura delle operazioni relative al trattamento dei file. 


FILE LETTO CON GET# 

P*R*I*M*0*C* 

#P*R#I*M*Q*N* 

*1*1*1*1*1* 

*F'*R*I*M*0*C* ********** 

********** *P*R*I*M*0*N* ********** 
********** * 1 * 1 * 1 * 1 * 1 * 

*P*R*I*M#0*C*,*P*R*I*M*0*N#,* 1*1 * 1* 1* 1* 

*F'*R* I *M*0*C*.: *P*R* I *M*0*N*, * 1 * 1 * 1 * 1 * 1 * 

*S*E*C*0*H*D*0*C* 

*S*E*C*0*H*n*0*N* 

*2*2*2*2*2* 

*S*E*C*0*N*D*0*C* ********** 

********** *S*E*C*0*H*D*0*H* ********** 
********** * 2 * 2 * 2 * 2 * 2 * 

*S*E*C*0*H*D*0*C*,*S*E*C*0*N*D*0*N*,*2*2*2*2*2* 
*S*E*C*0*N*n*0*C*.: *S*E*C*0*N*D*0*N# J *2*2*2*2*2* 

* 
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FILE LETTO CON INPUT# 


FRInoe 
PEIMON 
11111 
F'RIMOC 
FRINON 
11111 
F'RIMOC 

fri noe;FRINON;11111 

SECONDOC 

SECONDOH 


SECONDOC 

SECONDON 


SECONDOC 

SECONDOC;SECONDOH;22222 


Analogamente a quanto fatto nel Paragrafo 2.2, riportiamo le due istruzioni 205 e 
206, da usare per modificare il programma PRFSDISCOl, per non perdere campi 
nel record che usa, come separatore registrato, la virgola. 


205 INPUT#2,R1 $ , R2$ ,R3$ : TS=ST 

286 PRI NT#4. R1 $ ■ F'R I NT#4 , R2$ • PRI NT#4 , R3$ 


Per proporre un esempio di file sequenziale numerico, riportiamo il programma 
PRFSDISC02, nel quale scriviamo come nell’esempio PRFL2C della cassetta, 
quattro record numerici formati da due campi ciascuno. Dopo aver chiuso il file lo 
apriamo in lettura, leggiamo con INPUT# e stampiamo i dati e poi, in una seconda 
fase, leggiamo con GET# e stampiamo i dati carattere per carattere. In questo caso 
non andiamo a leggere il buffer, che si trova nella RAM dell’unità 1541. 
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10 REM PRFSDISC02 

15 REM CARICAMENTO FILE NUMERICO 

£0 REM UUNI RECORD LUCI CU COMPRENDE £ CFlMF'I 

£5 REM IL PRIMO E"' UN NUMERO INTERO 

SU REM IL SECONDO UN NUMERO DECIMALE 

35 REM SI USA CHR$<13> COME SEPARATORE DI CAMPO 

40 REM PER USCIRE DARE UN INTERO NULLO 

45 REM IL RETURN FINALE LO METTE IL SISTEMA 

50 CH$=CHR$<13> 

55 QPEN£,8,2,"FSDISCO£,S,M":0PEN4, 4 
60 PRINT"111UMERI INTERI O 32767MT 
65 FRI NT "PER USCIRE RISPONDERE 0 <ZERO> A INTERO'.?!?]" 
70 INPUT"INTERO: ":I£ 

75 IFIK=0THENCLOSE£ : GOTO110 
80 INPUT"DECIMALE: ";D 
85 PRINT#£.. IL, CH$; D 
90 GOTO7@ 

ilo REM LETTURA FILE NUMERICO 

115 REM CON INPUT VENGONO LETTI I £ CAMPI 

1£0 REM ESSI VENGONO STAMPATI 

125 REM QUANDO E" FINITO IL FILE VIENE CHIUSO 

130 REM E POI VIENE RIAPERTO, LETTO CON GEI# 

133 REM E STAMPATO CARATTERE PER CARATTERE 
135 OPEN2,8,£,"FSDISC02,S,R" 

145 PRINT#4 :PRINT#4,"CONTENUTO FILE NUMERICO" 

150 PRINT#4 

155 INPUT#2,I£,D : TS=ST 

160 PRINT#4, i;-:,d 

165 IFTSO64THEN155 

175 CL0SE2 : FRINT#4 

180 0PEN2,3,2,"FSDISC02,S,R": I=0 

183 PRINT#4,"FILE LETTO CON GET#" : PRINT#4 

185 GET#£,A$:TS=ST 

190 F RIH T # 4, A S C A $+C H R $ U ) ) 

193 I = I +1 :1FI=8THEHPRINT#4 : 1=0 
195 IFTS-64 THEN CL0SE2 : PR I NT#4 : CL.0SE4 : STOP 
£00 GOTO185 


Riportiamo i risultati del programma. 
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CONTENUTO FILE NUMERICO 


123 

-6 r’ 

3456 

-43 


—6 f o . 43 
543.78 
90.67 
830.5 


FILE LETTO CON GET# 



43 

50 

51 

•"» ~i 

•J 4L 

13 

45 

54 

55 

56 

46 

X= “i 
■Jùl 

51 

O 

13 

45 

54 

55 

O 4L 

13 

Oli 

ero 

. j .“i 

52 

51 

46 

55 

56 

-“i 

13 

O •“> 

’J k— 

51 

52 

r~o 
•— 1 *J 

54 

32 

13 

32 

cr-? 

f 

48 

46 

54 

55 

32 

13 

45 

52 

51 

■”i o 

. i 

13 

*“i 

•-J4L 

56 

57 

48 

46 

53 

•J 4L 


13 


Come puoi vedere, paragonando questi risultati con quelli del file su cassetta 
(abbiamo scritto campi identici) la registrazione avviene nello stesso modo. 

Nei due esempi di programma puoi trovare applicati i comandi che abbiamo 
trattato in questo paragrafo. Non abbiamo fatto l’analisi degli errori tramite il 
canale 15, dato che si tratta solo di esempi. Ti raccomandiamo, però, di non 
tralasciarla in un programma elaborativo. 

Osserva alla linea 190 la sequenza: 

PRINT#4,ASC(A$+CHR$(0)) 

è necessario sommare alla stringa A$ la stringa CHR$(0) per ovviare all’inconve¬ 
niente che, se A$ è la stringa nulla, la funzione ASC dà errore. 


Chiudiamo questo paragrafo con il programma esempio APRISEQUENZ1ALI, 
che dimostra quanti file sequenziali possono essere aperti contemporaneamente sul 
dischetto. 
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1 REM APRISEQUENZIALI 
5 OPEN15,8,15,"I" 

7 INPUT 11 QUANTI FILE SEQ.MN 
15 IJNNGOT060, 50,40, 30,20 

20 0PEN6,8,6, " @0 : SEQ5, S, W 11 : GOSUE100 

21 PRINT#6,"RECORHSEQ5":GOSUE1@@ 

30 0PEN5,8,5,"@0 :SEQ4,S,W" : GOSUE1QQ 

31 PRINT#5,"REC0RDSEQ4":GOSUE100 

40 QPEN4,8,4,"00 :SEQ3,S,W":GOSUE100 

41 PRINT#4,"RECORDSEQ3":GOSUE100 


50 

0PEN3,S 

,3,"00 ^ SEQ2,S,W":GOSUE100 

51 

PRINTttS 

,"REC0RDSEQ2" : GOSUE100 

60 

OPEN2,E 

,2,"00 :SEQ1,S,U":GOSUE100 

61 

FRINT#2 

,"REGQRDSEQ1":GOSUE100 

65 

0NNG0TC 

r' 4, f 3, \ 2, f 1, f 0 

70 

CL0SE6: 

GOSUE100 

71 

ULU3E5 : 

GOSUE100 

1 c_ 

ULUSE4 : 

GOSUE100 

(' 

CL0SE3 : 

GOSUE100 

74 

CL0SE2 : 

GOSUE100 

99 

CL0SE15 

: STOP 


100 INPUT#15,EN,EM$,ET,ES 
110 PRINTEN;EM$ j ET;ES 
120 RETURN 


Prova a far girare il programma; vedrai che dopo aver aperto 3 file ricevi la 
segnalazione di errore : 70 NO CHANNEL. 

Il programma chiede quanti file vuoi aprire, li apre, uno dopo l’altro e poi li chiude; 
sul video compare il messaggio di errore o segnalazione richiesto con il sottopro¬ 
gramma in 100. 

Ti segnaliamo un errore del DOS, che è bene tener presente. Quando si scrive un file 
sequenziale, formato da record logici di 254 caratteri, compresi i fine campo, cioè 
con record logico coincidente con il settore, succede che dopo la chiusura del file, si 
perde un settore. 

Abbiamo provato il programma SEQ254, che segue: 
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10 REM SEQ254 

15 REM Rl$ CONTIENE 70 ASTERISCHI 

16 REM R2* CONTIENE 55 ASTERISCHI 

£0 R1 $= "":FORK=1TO70:R1$-R1$+"*"■NEXTK 
21 R2f= " 11 ^ FORK= 1T055 : R2$=R2$+ " * " : NEXTK 
25 OPEN15,8,15,"I" 

30 0PEN2,8,2,"PSEQ254,S,N" 

35 FORK~ 1T04 : PRI NT#2, R1 $ ; CHR$ < 13 > ; R2* ; CHR4- < 13 > i 

36 PRINT#2,R1$;CHR$(13 >;R2$;CHR$C13); 

40 NEXTK 

45 CL0SE2 : CLOSE15 


esso scrive 4 record formati ciascuno da 4 campi, per un totale di 254 caratteri. 
Dopo la chiusura del file abbiamo listato la directory del dischetto, che prima della 
prova è stato formattato, che riportiamo. 


0 WaSMfl: 

4 "PSEQ254" 

659 BLQCKS FREE. 


SEQ 


Come vedi manca un blocco nel computo. Abbiamo eseguito sul dischetto la 
funzione VALIDATE, e abbiamo nuovamente listato la directory. Come vedi il 
blocco è stato ricuperato. 


4 M ^ T *3 E Q 

660 BLQCKS FREE. 
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Poi abbiamo provato a leggere il file sequenziale con il programma LEGGI- 
SEQ254, che segue. 


10 REM LEGOISEQ254 

15 REM LEGGE E STAMPA CONTENUTO FILE PSEQ254 
20 K=1 

25 OPEN15,8,15,"I" 

30 0PEN2,8,2, 11 PSEQ254, S, R " 

35 INPUT#2,R$ : TS-ST 

36 FRINÌ K;R$:K-K+1 

40 IFTS=64THENCL0SE2 : CLOSE15 •' STOP 
45 G0T035 


Il file viene letto tutto senza perdita di record logici. 


3.6 Esempio di archivio SEQUENZIALE 

Abbiamo realizzato su disco un programma analogo a PRFL3C, mantenendone 
inalterate molte caratteristiche, onde consentire un confronto tra i due tipi di 
supporti. 

Anche in questo caso abbiamo un record logico di lunghezza variabile, formato da 
6 campi di lunghezza variabile. I campi sono: COGNOME, NOME, TELEFONO, 
INDIRIZZO, CAP e CITTA’. Non abbiamo controllato la lunghezza dei campi 
(tagliandoli se superano singolarmente i 79 caratteri), ma, stando alla loro natura, 
sembra difficile superare 79 caratteri, a meno di non farlo volutamente. In quest’ul¬ 
timo caso si avrebbe segnalazione di errore in lettura. 

Non si ha controllo sul numero di record caricabili; ovviamente se si scrivono 
moltissimi record si può superare la capacità del dischetto. 

Il programma non presenta un menù iniziale, ma pone successivamente domande 
sull’operazione da svolgere. Le operazioni possibili sono: 
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1) Crea il file ex-novo 

2) Lista il file sulla stampante 

3) Aggiorna il file consentendo di: .inserire record, 

.modificare record, 

..cancellare record. 

Ogni fase conclude il programma e devi ripartire con RUN per eseguire un’altra 
operazione. Anche le tre sottofasi della fase 3, possono essere svolte una alla volta. 

Non riportiamo qui lo schema a grandi blocchi del programma, in quanto resta 
valido quello della Figura 2.1. 

Abbiamo mantenuto la tecnica dei sottoprogrammi; in conseguenza il programma 
è facilmente modificabile. 

Per uscire dalla richiesta dei dati, devi rispondere con alla richiesta del 
cognome. 

La più evidente differenza, rispetto all’analogo programma per la cassetta, sta nella 
fase dell’aggiornamento. Infatti per aggiornare il file si procede così: 

• si apre un file di nomeTEMP, sempre di tipo sequenziale, per scrittura, sul 
quale vengono via via ricopiati i record letti dal file da aggiornare, 

• per inserire, devono essere forniti i nuovi record, sempre in ordine di 
cognome e nome, il file in lettura e quello in scrittura vengono fatti avanzare 
parallelamente, in modo che le inserzioni vadano al posto giusto, scartando dati 
forniti fuori ordine, 

• per modificare record la procedura è analoga alla precedente, 

• per cancellare record, il record non viene ricopiato, 

• alla fine, dopo aver chiuso i due file, viene cancellato il file sorgente e viene 
cambiato nome al file TEMP, assegnandogli il nome del file sorgente. 

Riportiamo nella Figura 3.5 uno schema a grandi blocchi della fase di aggiorna¬ 
mento per inserzione. 
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Flg. 3.S AGGIORNAMENTO PER INSERZIONE 
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Ti consigliamo di dedicare un pò di tempo all’analisi di questa parte del program¬ 
ma; l’aggiornamento di un file sequenziale non è mai un’operazione semplice, se si 
vuole mantenere un ordinamento nei record. 

Passiamo ad elencare le variabili e le costanti usate nel programma. 

PR=4, numero periferica di stampa 
NF=4, lfn del file di stampa 
CH$=CHR$(13), carattere separatore RETURN 
SP$=“ ”, 4 spazi 

I$(6), vettore per leggere i dati da tastiera 

Il$(6), vettore per leggere il record da disco in aggiornamento 

D$(6), vettore per le descrizioni dei campi 

R$, variabile per le risposte 

LC$, vecchio cognome 

LN$, vecchio nome 

FS, memorizzazione parola di stato ST 
EN, EM$, ET, ES, variabili controllo errore 
SW, controllo dati ingresso, 0 per si, 1 per finiti i dati 
FF, switch per fine file, 1 finito file input 

FL, switch utilizzo record letto per aggiornamento, 0 utilizzato, 1 da utilizzare 
R, K variabili di controllo 


Segue il listato del programma. 


10 REM PRF5DISC03 

12 REM CREAZIONE E GESTIONE FILE SEQUENZIALE 
14 REM PARAMETRI DI STAMPA-APERTURA CANALE 15 
16 NF=4:PR=4: OPEN15,3,15 = G0SUB362 

13 REM COSTANTI E VARIABILI 
20 CH$=CHR$<13> : SP$=" 

22 DIMI$<6> .-11$C6>, D $< 6 > 

24 D$ < 1 > = "COGNOME " : D$<2) = " NOME " • D$ '• 3 >-"TEL. " 
26 D$ < 4 > = " IHDIRI ZZO " : D$ < 5 > = " CAP " ’• D$ ( 6 > = " CITTA •' 
28 REM SCELTA OPERAZIONE 
30 PRI NT "□CREAZIONE FILE S/N " : INPUTRT 
32 IFR$<>"S"THEN70 

34 REM- 

36 REM CREAZIONE FILE 
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4@ GUSUB278 : G0SUB266 : GUSUB282 

42 PRINT#15,"10" : REM INIZIALIZZAZIQNE 

44 REM APERTURA FILE PER SCRIVERE-CANALE 2 

46 QPEH2,8,2,"Q:"+NF*+",S,W":G0SUB362 

48 LC$="" : LN$="" : REM VECCHIO COGNOME E NOME 

50 G0SUB223 ; REM RICHIESTA DATI 

52 IFSW=0THEN60 

54 CL0SE2 : CL0SE15 

56 PRINT" ?F INITO CARICAMENTO FILE":STOP 

58 REM CONTROLLO ORBINE RECORD 

60 IFI$a»LC$THEN66 

62 IFI $ < 1 > =LC$THEN IFI $ < 2 > >LN#-THEN66 

6 4 iJ U S U B272 • G U T 0 5 0 

66 LC*=I$a> : LN$-I$(2) 

6 8 G 0 S U B256 : G 0 T 0 5 0 

70 REM- 

72 REM STAMPA FILE 

74 REM- 

76 PEI NT "STAMPA FILE S/N" ; : INPUTR$ 

78 IFETO"S"THEN 1G4 
80 UUSUB278•GUSUB266 
32 PRINT#15,"10":REM INIZIALIZZAZIONE 
84 GUSUB282■GU8UB286 

86 OPENNF,PR:PRINT#NF, "LISTA ARCHIVI0 ";NF$ 

88 PRINT#NF 

30 REM LETTURA E STAMPA RECORD 
92 GOSUB250 • PR I NT#NF, I $ ( 1 > SP$I $ < 2 > 

94 PRINT#NF, 1 $<3 >:PRINT#NF,I $( 4) 

36 PR I NT#NF, I $ ( 5 > SP$ ; I $ ( 6 ) : PR I NT#NF 
38 IFFS064THEN 30 
100 CL0SE3:CLOSENF : CLOSE15 
102 PRINT" WI NITO LISTA": STOP 

104 REM-- 

106 REM AGGIORNAMENTO FILE 

108 REM- 

110 FF=0:PRINT"MAGOI ORNAMENTO FILE" 

112 G 0 S U B278 : G 0 SIJ B 2 6 6 
114 PRINT#15,"10": REM INIZIALIZZAZIONE 
116 GU3UB282•GUSUB286 

118 REM APERTURA FILE TEMPORANEO PER SCRIVERE 
120 0PEN2,8,2,"Ù:TEMP,S,W":G0SUB362 
122 LC$ : = : " " : LN$- M " 
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124 FRI NT "ITTI F'0 DI VARIAZIONE : " 

126 F'R I NT "1 = 1 NSERI MENTO " : PRI NT " 2=VAR IAZI ONE " 

128 PRINT"3=CRNCELLAZIONE" 

130 INPUTR: IFRC10RR>3THEN130 

132 FL=0•REM 1 SE ULT. REO. LETTO DA SCRIVERE 
134 FF=0 : REM 1 SE FINITO FILE INPUT 

136 0NRG0TU138,ISO,202 : REM SCELTA OPERAZIONE 

133 REM- 

140 REM INSERIMENTO RECORD 

142 REM- 

144 G0SUB228 : IFSW=0THEN156 
146 G0SUE328 : CL0SE3 : CL0SE2 

148 PRINT"SFINITO AGGIORNAMENTO" 

150 REM SISTEMAZIONE FILE SU DISCO 
-152 FRI NT# 15, "S0 : "+NFT 

154 PRINT#15, "R0:"+NFT+"=TEMP":CLOSE15 : STOP 

156 IFI* a>>LC$THEN170 : REM INSERISCE 

158 REM NOMI IN DISORDINE 

160 IFI ■$ < 1 > <LC$THENG0SIJE272 : GOTO 138 

162 REM COGNOMI UGUALI 

164 IFI $ < 2 > >LNTTHEN 170 

166 IFI $ ( 2 ;■ CLNTTHENG0SUB272 : GOTO 138 

16 8 G 0 S U B262 : G 0 T 013 8 
170 REM NOMI IN ORDINE 

172 LC$= I $ < 1 > ^ L.N$= I $ < 2 ) : GQSUB292 
174 IFI$a )011 $U >THEN178 
176 IFI* <2) = 11$(2 >THENG0SUE262: GOTO138 

17 8 G U S U E256 : G 0 T U13 8 

180 REM--- 

182 REM MODIFICA RECORD 
184 REM---- 

186 G0SUE228: IFSW=STHEN180 
188 GOTO146 

1 SO IFI $ < 1 3LCTTHEN 136 
132 IFI $ < 1 ) =LCTTHEN IFI $ ( 2 > >L NT THEN 136 

134 G0SUB272 : GOT0180 

136 LC$=I $( 1>:LNT=I$(2 >:GOSUE340 
138 IFFL=1THEN180 
£80 G0SIJE256 : G0T0130 

204 REM CANCELLAZIONE RECORD 
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208 PRI NTD£ ( 1 >: INPUTI £ ( 1 > : IFI £ (1 > = !11 * " THEN146 

210 PR I NTD£2 ) ; : INPUT I£ < 2 ) : IF1£ (1 > >LC£THEN216 

212 IFI£U >~LC£THENIFI£<2)>LN£THEN216 

214 G0SUE272 : GOTO202 

216 LC£=I£ CI > : LN£=I£ < 2):GOSUE340 

218 IFFF=1ANDFL=0THEN146 

220 GOTO202 

224 REM SOTTOPROGRAMMI 

226 REM--- 

228 REM RICHIESTA DATI 

230 SW=0 : REM 1 SE FINITI DATI 

232 PR I NT " :: 1 " D£ ( 1 ), : I NPUT I £ ■:! 1 ) 


234 

236 

240 

242 

244 

246 

ii!4y 

250 

252 

254 

-i izr s“ 
cL ■ J 


IFI£(1 ) " THENSW= 1 : RETURN 

F0RI<='2T06 : PR INTK, D£ (K > ; • I NPUT I £ C K> NEXTK 

PR I NT " «CONFERII I S/N ", : I NPUTR£ 

IFR£~"S"THENRETURN 
FRINT"QUALE CAMPO % ■INPUT R 
I FR< 10RR>6THENPR I NT " 71" ; : G0T0242 
PR I NTD£ < R ) ; : I NPUT I £ < R ) : PR I NT " 21" ; 

FORK= 1T06 ; F'R I NTK ; D£ ( K > ; I £ < K > : NE NTK : G0T023i 

REM LETTURA RECORD DA DISCO 

F0RK-1T06 : INPUT#3.- I£<K> = FS=ST 

G0SUB362 : NENTK: RETURN 

REM SCRITTURA NUOVO RECORD 

FORK=1T06^ PRINT#2,I£(K >;CH£; 

G0SUB362 : HENTK: RETURN 

REM MESSAGGIO NOMI UGUALI 

F'R I NT " NOMI UGUAL I " : G0SUE266 : RETURN 

REM ATTESA TASTO 

GETR£ : IFFi£“" " THEN266 

RETURN 

REM MESSAGGIO FUORI ORDINE 

PRINT"WHOMI FUORI ORDINE":G0SUB266 

RETURN 

REM RICHIESTA DISCO DATI' 

PR I NT " jSTIONTA DISCO DATI " : RETURN 


YZ' T 


LE 


28 U 


INPUT"NOME FILE "NF£ : RETURN 
REM APERTURA FILE PER LEGGERE-CANALE 3 
QPEN3 / 8 .■ 3, "0 : "+NF£+", S, R" : G0SUB362 
RETURN 
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292 REM LEGGE RECORD E SCRIVE FINO AL 

294 REM RECORD PRECEDENTE SU TEMP 

296 IFFF=1ANDFL=0THENRETURN 

298 IFFLO0THEN304 

S 0 0 G U S U E S16 

302 IFFS=64THENFF=1 

304 IF11 $ C1 ><I$C1> THEN310 

306 IF11$<1 ) = I$U>THENIFI1$<2><I$ < 2)THEN310 


308 FL-1: RETURN 
310 G0SUE322 : FL=0 
312 IFFF=1THENRETURN 
314 GOTO300 

316 REM LETTURA RECORD 
318 FORK=1T06:1NPUT#3,11$< K> : FS=ST 
320 G0SUB362 ; NEKTK ; RETURN 
322 REM SCRITTURA RECORD 


324 FORK= 1 T06:PR I NT#2 ,11$ (K > 

326 G0SUB362:NEXTK : RETURN 

328 REM SCRIVE FILE TEMP FINO ALLA FINE 


■“i '“i 

Og 

•"j 


0 REM DEL FILE DI INPUT 
2 IFFF=1ANDFL=0THENRETURN 
4 I FFLOOTHENFL=0 : G0SUE322 : G0T0328 
6 GQSUB316 ; G0SUB322 :1FFS=64THENFF = 1 : RETURN 


3 -3 tì G U T U 3 3 6 


340 REM COPIA FILE FINO AL RECORD CERCATO 


344 

346 

34o 

350 

354 
356 
3 5 8 
360 
3 3 2 
364 
366 
368 
37G 


IFFF=1ANDFL=0THEN354 

IFFLO0THEN348 

G0SUB316 : IFF3=64THENFF-1 

IF11 $ : ( 1 > < I $ ( 1 > THEN 35 6 

IF11$ <1> = I $( 1> THENIF11$ C2 ><I$ 

IF11 $<1> = I $ (1> AND11 $C2 > = I$<2 > 

FL= : 1 : PR I NT " NON TROVATO " : GOSUB 

GUSUB322 

IFFF---1THEN354 

GUT034b 

REM ROUTINE ERRORE 
I NF'UT# 15, EN, EM$, ET, ES 
IFEN~0THEN RETURN 
PRINT"ERRORE DISCO" 

PRINTEN,EM$,ET,ES■STOP 


< 2 > THEH356 
THENFL=0 : RETURN 
266^ RETURN 
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Segue un pezzo del listato del file prova, che noi abbiamo chiamato FSDISC03. 


LISTA ARCHIVIO FSDISC03 

PRIMO SIGNORE 

1111111 
VIA PRIMA 1 
12345 MILANO 

SECONDO SIGNORE 

VIASSECONDA 2 
65432 MILANO 

TERZO SIGNORE 

333333 
VIA TERZA 3 
98765 MILANO 


Nel programma non è stata particolarmente curata la lista dei record del file. I dati 
sono stampati su 4 linee, ponendo sulla prima il cognome e il nome, sulla seconda il 
telefono, sulla terza l’indirizzo e sulla quarta il CAP e la città. Non è stato fatto il 
controllo della lunghezza del foglio. Potrai aggiungere tu tutte queste cose, come 
utile esercizio. 

Nel listato abbiamo messo in rilievo con REM opportune le diverse parti del 
programma, e, per questa ragione, non passiamo ad elencare le funzioni dei diversi 
gruppi di linee. 

Preferiamo terminare con dei suggerimenti per migliorare il programma. La fase 
dell’aggiornamento potrebbbe essere impostata in modo che: 

• viene chiesto un cognome e nome, 

• viene chiesto se si vuole: correggere, inserire o cancellare, 

• si fanno avanzare i file fino al punto giusto, 

• si esegue l’operazione richiesta, 

• si procede fino ad esaurire le richieste, che, ovviamente, devono essere 
passate in ordine di cognome e nome, 

• si finisce di ricopiare il file, se necessario, e si chiude. 


Con questa impostazione, le tre operazioni di aggiornamento potrebbbero essere 
svolte in una sola fase. 
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3.7 File di programmi 


Abbiamo già visto nel primo volume come si trattano i file di programmi. Dopo 
aver studiato, nei precedenti paragrafi, il comportamento dell’unità 1541, appare 
evidente che un programma non può essere salvato su dischetto o richiamato da 
esso in memoria, se il dischetto non è stato correttamente inizializzato. Le operazio¬ 
ni di LOAD e SAVE usano implicitamente sa=0 e sa=l. 

Devi fare attenzione a quanto segue: 

• Se richiami da disco con LOAD un programma che non esiste, comincia a 
pulsare l’indicatore rosso di errore; in tale caso devi scrivere: 

CLOSE15:OPEN15,8,15,“I” 

e poi richiamare con LOAD un programma usando il nome giusto. 

• Se salvi con SAVE su disco un programma con un nome che esiste già, il 
salvataggio non ha luogo. Puoi usare SAVE con il carattere ma è meglio 
seguire la procedura consigliata a proposito del comando SCRATCH. 

• Se non sei sicuro che una operazione disco sia andata a buon fine controlla la 
Directory. Ricordati che caricando in memoria la Directory si cancella il program¬ 
ma eventualmente presente. Questo non succede se inizialmente è stato caricato in 
memoria e mandato in esecuzione il programma di utilità C-64 WEDGE (vedi 
Paragrafo 3.15). 

• Dopo il SAVE di un programma esegui sempre il VERIFY. 

Nel Paragrafo 2.3 abbiamo cercato di leggere un file di programma su cassetta come 
file sequenziale e siamo andati ad analizzare il contenuto del buffer. Nel caso del 
dischetto possiamo soddisfare più facilmente la curiosità di vedere come è registra¬ 
to un programma sul supporto. 

Consideriamo sempre il programma PRGINMEM e operiamo come segue. 
Carichiamo in memoria il programma DCOMEFS, riportato nel Paragrafo 3.15, e, 
dopo aver stampato la directory del dischetto che contiene il programma PRGIN¬ 
MEM, rileviamo l’indirizzo del primo blocco del nostro programma. Nel caso del 
nostro dischetto abbiamo trovato che il primo blocco sta nella traccia 19, settore 7, 
e che il programma occupa 2 blocchi. 

Carichiamo in memoria dal dischetto TEST/DEMO, contenuto nella scatola 
dell’unita 1541, il programma DISPLAY T&S, montiamo il dischetto contenente il 
programma PRGINMEM, e facciamo girare il programma DISPLAY T&S. Chie¬ 
diamo l’uscita su stampante e diamo come indirizzo di traccia e settore: 19, 7. 
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Otteniamo così il contenuto del primo blocco, poi continuiamo con il secondo 
blocco e passiamo ad analizzare lo stampato. L’interpretazione non è semplicissi¬ 
ma, dato che non possiamo considerare la parte stampata a destra, ma solo i codici 
numerici riportati a sinistra in esadecimale. Se proviamo a fare qualche conversione 
troviamo tutti i caratteri del nostro programma, come sono riportati a pag. 267del 
primo volume. I primi due byte del primo blocco contengono gli indirizzi di traccia 
e settore del secondo blocco, sempre in esadecimale, il secondo blocco ha l’indirizzo 
di traccia a zero binario per rompere la catena, mentre il secondo byte contiene il 
puntatore al byte di fine file nel blocco. Constatiamo così che il file di programma 
(tipo PRG) termina con due byte a zero binario, dopo il byte a zero binario che 
chiude l’ultima istruzione. 


3.B II file con indice 

Nei paragrafi e nel capitolo precedenti abbiamo trattato, illustrandoli con esempi, i 
file sequenziali su disco e su cassetta. Abbiamo visto che si elaborano molto 
semplicemente, ma che sono poco flessibili, in quanto si possono solo ricercare i 
record che interessano partendo dal primo e procedendo in sequenza. Nei nostri 
esempi di archivio, abbiamo lavorato su record organizzati secondo l’ordinamento 
di due campi. Ovviamente si possono anche avere archivi senza alcun ordinamento, 
ma in questo caso i tempi di ricerca si allungano, dato che si rischia di dover leggere 
tutto il file per concludere che il record cercato non esiste. 

Nei prossimi paragrafi trattiamo i file R ANDOM e RELATIVI, cioè file nei quali si 
può accedere a un qualunque record, o per mezzo del suo indirizzo fisico, o per 
mezzo del numero d’ordine del record nel file. Questo fatto rende la gestione molto 
flessibile, ma sussiste un grosso problema: come si fa a sapere qual’è l’indirizzo 
fisico di un record di un file RANDOM, o, analogamente, come si fa a sapere qual’è 
il numero d’ordine nel file RELATIVO di un record? 

La prima risposta che viene in mente è la seguente: si tengono degli elenchi ordinati 
su carta con queste informazioni e si va a cercare quello che interessa. 

La cosa non è molto elettronica! 

Precisiamo alcuni concetti. Ogni file viene organizzato di solito in base a una chiave 
o a un gruppo di chiavi, cioè in base al contenuto di alcuni campi dei suoi record. 
Quando si crea il file si decide quale è la chiave di ordinamento più importante e si 
organizzano i record in base a tale chiave. La situazione ideale è che la chiave sia la 
sequenza dei numeri naturali, che risulta anche un campo significativo del record. 
In tale caso il campo chiave rappresenterebbe il numero d’ordine del record nel file 
e sarebbe immediata la ricerca su un file RELATIVO. Per un file RANDOM, non 
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sarebbe difficile, tenendo conto della lunghezza del record, impostare un algoritmo 
che consenta di risalire dal numero d’ordine del record al suo indirizzo fisico su 
disco, conoscendo l'indirizzo del primo blocco. 

Sfortunatamente il caso citato non si presenta quasi mai. Per risolvere il problema, 
quando si crea un file, chiamiamolo PRINCIPALE, si crea contemporaneamente 
un secondo file, chiamiamolo INDICE, che ha la caratteristica di essere formato da 
record molto corti, contenenti il campo chiave e l’indirizzo del record corrispon¬ 
dente nel file principale. Il file indice, essendo corto, può essere Ietto in memoria 
con poche operazioni di lettura, e, se possibile, mantenuto in memoria durante 
l’esecuzione dei programmi che trattano il file principale, consentendo rapide 
ricerche in base alla chiave del record. 

Se, per esempio, un file principale ha il record di 256 byte, mentre il campo chiave di 
ordinamento è di 10 byte, supponendo che per l’indirizzo bastino 3 byte, ne 
consegue che il file indice può avere il record di 13 byte. In un settore possono essere 
contenuti 16 record, quindi leggendo un settore del file indice possono essere 
compiute ricerche su 16 record. 

Molti calcolatori, di dimensioni maggiori del nostro, hanno già incorporata nel 
Sistema Operativo la gestione dei file con indice. Noi possiamo crearcela su misura 
per le nostre esigenze. 

Introdotto il concetto di file con indice, si vede immediatamente come partendo 
dall’indice, diciamo primario, di un file se ne può creare un altro, usando come 
chiave un altro campo, per ottenere una particolare elaborazione. 


3.9 File RANDOM di dati 

In questo contesto il file RANDOM è un file nel quale si accede ai singoli record 
conoscendo l’indirizzo fisico del settore al quale appartengono. 

Manteniamo la solita distinzione tra record logico e record fisico. Il record logico è 
quello che interessa la logica del programma, ed è formato dai caratteri che servono 
per contenere i sui campi. Il record fisico è il settore del dischetto. Il programmatore 
deve aver cura di strutturare il suo record logico in modo di ADATTARLO alla 
struttura fisica sulla quale si deve appoggiare, per renderne il più semplice possibile 
la gestione. 

Sarà quindi buona norma, dopo aver studiato il tracciato del record logico, 
aggiungere eventualmente qualche campo o qualche carattere a qualche campo già 
definito, in modo che la lunghezza del record logico possa: 

• coincidere con il settore, 

• essere un sottomultiplo del settore, 

• essere un multiplo della lunghezza di un settore. 

Noi, negli esempi, usiamo questa tecnica, e creiamo, insieme al file principale 
random, anche un file indice di tipo sequenziale. 
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Le elaborazioni sono più semplici se si lavora con record di lunghezza fissa, ma, 
dopo essersi impadroniti a fondo dell’argomento, è possibile anche lavorare con 
record di lunghezza variabile, ponendo come primo campo di ogni record l’infor¬ 
mazione circa la lunghezza del record stesso. 

Prendiamo ora in esame i comandi del DOS che consentono la gestione dei file 
RANDOM. 

Per operare sui file random vengono impegnati due canali, il canale 15 dei comandi, 
e un altro canale (da 2 a 14) con relativo buffer. Le operazioni si svolgono in due 
tempi: 

• SCRITTURA: le normali operazioni PRINT# scrivono nel buffer; una 
particolare operazione, lanciata sul canale comandi, trasferisce il buffer in un ben 
determinato settore del dischetto. 

• LETTURA: una particolare operazione, lanciata sul canale comandi, tras¬ 
ferisce un ben determinato settore del dischetto nel buffer; le normali operazioni 
INPUT# e GET# leggono i dati dal buffer. 

Per far partire una operazione su file sono necessarie due OPEN, una sul canale 15, 
e una sull’altro canale, con una stringa comando speciale. 

OPEN15,8,15 

apre il canale comandi, usando, secondo la nostra abitudine lfn=15. 
OPENlfn,8,sa,“#” 

apre il canale sa (che può avere un valore da 2 a 14), con il numero logico lfn (che 
può avere il valore dalai 27). Noi, come al solito, per semplicità, usiamo lo stesso 
numero per lfn e sa, da 2 a 14, escludendo, di solito, il 4, che usiamo per la 
stampante. 

La stringa speciale “#” può essere scritta facendo seguire al carattere # un numero, 
il numero del buffer che si vuole utilizzare, per esempio “#3”. Se richiedi un 
particolare buffer e questo è occupato ottieni il messaggio di errore: NO CHAN- 
NELS. Lo stesso messaggio compare se si cercano di aprire più file di quelli 
consentiti. 

Se vuoi sapere quale buffer ti ha assegnato il sistema (avendo usato solo “#”), devi 
eseguire, subito dopo la OPEN, un’istruzione GET#lfn. 

L’istruzione OPEN non deve precisare se si vuole leggere o scrivere; infatti in questo 
caso si possono fare ambedue le operazioni. La OPEN mette a disposizione un 
canale e un buffer; a questi si fa, come al solito, riferimento, citando il numero lfn. 

Vediamo ora i comandi che si possono passare al DOS, come stringa-comando, con 
una operazione PRINT# sul canale 15; essi sono riportati nella Tabella 3.3. 
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Tab. 3.3 COMANDI PER IL DOS 


COMANDI 

Completi 

Abbreviati 

Formato Stringa 

BLOCK-READ 

B-R 

“B-R:”ch,dr,t,s 

BLOCK-WRITE 

B-W 

“B-W:”ch,dr,t,s 

BLOCK-EXECUTE 

B-E 

“B-E:”ch,dr,t,s 

BUFFER-POINTER 

B-P 

“B-P:”ch.p 

BLOCK-ALLOCATE 

B-A 

“B-A:”dr.t,s 

BLOCK-FREE 

B-F 

“B-F:”dr.t,s 

Memory-Write 

M-W 

“M-W”adl/adh/nc/data 

Memory-Read 

M-R 

“M-R”adl/adh 

Memory-Execute 

M-E 

“M-E”adI/adh 

USER 

U 

“Uùparms” 


dove: 

eh, numero canale, sa della OPEN... 
dr, numero unità: 0 
t, numero traccia, da 1 a 35 

s, numero settore, da 0 a 20, o meno, a seconda della traccia 

p, posizione del puntatore nel buffer 

adì, byte basso del blocco di memoria 

adh, byte alto del blocco di memoria 

nc, numero caratteri da trasferire, da 1 a 34 

data, dato attuale in notazione esadecimale, si deve usare la funzione CHR$ del 
codice decimale equivalente 
i, numero di riferimento nella tabella USER 
parms, parametri associati a U 
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Nella stringa dei comandi devono essere usate le abbreviazioni per i comandi 
Memory, per gli altri si possono anche usare i nomi completi. 

I parametri, se sono costanti, possono essere scritti all'interno delle virgolette, se 
sono variabili, no. 

All’interno delle virgolette possono essere usati come caratteri separatori lo spazio 
e la virgola; all’esterno delle virgolette, solo il punto e virgola. 

Nella Tabella 3.4 sono specificati i comandi USER. 


Tab. 3.4 SALTI USER ALLA MEMORIA DELL’UNITA’ 1541 


TABELLA DEI SALTI 

Prima 

Definizione 

Significato 

Definizione 

Alternativa 

Comando 

Ul 

UA 

sostituisce BLOCK-READ 

U2 

UB 

sostituisce BLOCK-WRITE 

U3 

UC 

salto a 1280 (0500H) 

U4 

UD 

salto a 1283 (0503H) 

U5 

UE 

salto a 1286 (0506H) 

U6 

UF 

salto a 1289 (0509H) 

U7 

UG 

salto a 1292 (050CH) 

U8 

UH 

salto a 1295 (050FH) 

U9 

UI 

salto a 65530 (FFFAH) 

UO 

UJ 

salto alla routine di accensione 


Esaminiamo ora separatamente ogni comando, trattando prima il gruppo che si 
riferisce alla gestione dei file di dati, e dopo quello che interviene sulla programma¬ 
zione dell’unità 1541. Non riportiamo il formato di ogni comando, rilevabile dalla 
Tabella 3.3. 

BLOCK-READ, abbreviazione facoltativa B-R 

Trasferisce il settore specificato nel buffer assegnato al momento della OPEN. 
Mantiene l’indicazione sulla posizione del puntatore, registrata nell’operazione di 
scrittura del blocco, cioè della posizione del puntatore dopo l’ultima PRINT# 
effettuata prima di trasferire il blocco su disco. Tale indicazione sta nella posizione 
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0 del buffer. Dopo il trasferimento nel buffer effettuato con B-R, se, dopo INPUT# 
o GET#, si analizza la parola di stato ST, quando viene raggiunta la posizione 
finale del puntatore si trova ST=64. 

BLOCK-WRITE, abbreviazione facoltativa B-W 

Trasferisce il contenuto del buffer nel settore specificato, registrando la posizione 
raggiunta dal puntatore con l’ultima PRINT# nella posizione 0, ma predisponendo 
il puntatore sulla posizione 1. Se, dopo, la lettura del blocco viene effettuata con 
B-R e non si sposta il puntatore, il primo carattere disponibile è quello di posizione 
1, mentre se viene effettuata con U1 e non si sposta il puntatore, il primo carattere 
disponibile è quello di posizione zero. 

BUFFER-POINTER, abbreviazione facoltativa B-P 

Consente di spostare il puntatore all’interno del buffer, sia dopo avere ricevuto in 
esso dati in seguito a B-R o a U1, che quando si sta riempiendolo di dati prima di 
eseguire B-W o U2. La posizione del puntatore è molto importante, perchè le 
operazioni GET#, INPUT# e PRINT# agiscono a partire dalla sua posizione. Il 
puntatore può avere valori da 0 (primo carattere del buffer) a 255 (ultimo carattere 
del buffer). Se, quando usi i file random, vuoi rispettare la struttura degli altri file, 
non devi usare per i dati i primi due caratteri del buffer, usati negli altri casi dal 
sistema per concatenare tra loro i settori del disco. Quindi, prima di iniziare a 
scrivere, devi con B-P posizionare a 2 il puntatore, puoi, in conseguenza, usare per i 
dati solo 254 caratteri. Se hai operato in scrittura in questo modo, devi analoga¬ 
mente posizionare a 2 il puntatore prima di cominciare a leggere i dati. 
Supponendo di usare un file random con il record logico di 127 caratteri, possiamo 
memorizzare in un settore due record logici; il primo inizia con il puntatore al 
valore 2, il secondo con il puntatore al valore 129. 

Operando sul puntatore si può accedere con la massima libertà ai campi di un 
record, si deve, però fare attenzione a quale comando si usa per memorizzare il 
buffer su disco. Infatti, come abbiamo già visto, B-W mantiene traccia dell’ultima 
posizione del puntatore; vedrai che U2 non lo fa. 

BLOCK-ALLOCATE, abbreviazione facoltativa B-A 

registra nella B AM l’occupazione del settore specificato. Prima di poter disporre di 
un settore è necessario sapere se è disponibile; questo si ottiene con B-A, chiedendo 
di allocare un settore e analizzando dopo la situazione di errore, tramite il canale 
15. Se la variabile EN contiene 65, corrispondente al messaggio NO BLOCK, 
significa che il settore è già occupato; ma, fortunatamente, in questo caso ET e ES 
contengono gli indirizzi di traccia e settore del prossimo settore disponibile. Basta 
usare nuovamente B-A con gli indirizzi forniti da ET e ES per allocare un settore 
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disponibile e renderlo indisponibile. Se EN=65 e ET=0, significa che il dischetto è 
completamente pieno. 

Se, invece, EN contiene 0, significa che il settore richiesto è stato allocato. Riportia¬ 
mo, più avanti, la routine ALLOCA che esegue correttamente questa operazione, 
senza andare ad usare settori, eventualmente liberi, della traccia 18. 

BLOCLK-FREE, abbreviazione facoltativa B-F 

libera un settore già occupato, modificando la BAM 

È importante notare quanto segue: 

B-A e B-F lavorano anche se il canale per l’accesso diretto al file non è aperto (cioè 
non è stata fatta la OPEN.ma questo è pericoloso; infatti la BAM viene 
riscritta quando si chiude un canale ad accesso diretto. Operando senza il canale 
dati aperto si rischia di non riscrivere la BAM aggiornata sul dischetto. 


U1 (oppure UA) 

Lavora come B-R, ma con il vantaggio che legge un intero blocco, senza tenere 
conto della posizione finale del puntatore nel buffer, prima dell’operazione di 
scrittura. Dopo Ul, se non si muove il puntatore, il primo carattere disponibile è 
quello di posizione 0. Noi, in generale usiamo Ul per leggere, ma, in casi particolari 
può servire anche B-R. 

U2 (oppure UB) 

Lavora come B-W, ma non registra la posizione finale del puntatore nel buffer. Noi, 
di solito, scriviamo con U2. 

Prima di passare alla descrizione dell’altro gruppo di comandi, riportiamo alcuni 
esempi. Se vuoi provare questi programmi devi operare così: 

• prendi un dischetto nuovo, esegui l’operazione di formattazione e lo poni da 
parte per le prove; 

• scrivi il programma esempio e.lo memorizzi su un tuo dischetto per program¬ 
mi, oppure carica dal dischetto dei programmi del libro il programma esempio; 

• prima di dare RUN, spegni l’unità 1541, attendi un momento, poi riaccendila 
e monta il dischetto per le prove. Per vedere bene cosa succcede è necessario partire 
con la RAM dell’unità 1541 azzerata, altrimenti i buffer sono sporchi e questo può 
recare confusione. 
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Alcuni di questi programmi esempio lavorano su settori ad indirizzo fisso e si 
rischia di rovinare dischetti normali di lavoro. 


Segue il programma RANDOMPROVE1; esso fa le seguenti cose: 

• apre il canale 15, linea 40 

• apre il canale 2 per i dati, linea 50 

• scrive, senza intervenire sul puntatore, le tre stringhe A$, B$, C$ nel buffer, 
linea 60 

• scrive con B-W il buffer nella traccia 20, settore 0, linea 70 

• apre il canale 3 per i dati, linea 90 

• scrive, senza intervenire sul puntatore, le tre stringhe A$, B$, C$ nel buffer, 
linea 100 

• scrive con U2 il buffer nella traccia 20, settore 1 

• chiude il canale 2 e il canale 3, linea 120. 


Abbiamo usato due canali, aperti contemporaneamente, per ottenere di usare due 
buffer diversi. 

Vengono scritti due settori, con gli stessi dati, usando i due comandi B-W e U2. Poi: 


• trasferisce il settore 20,0 con il comando B-R nel buffer e, senza modificare il 
puntatore, legge i dati carattere per carattere con GET# e li stampa, linee da 125 a 
150. Dai risultati vedi che la lettura con GET partedal primo carattere del primo 
campo; 80 è il codice ASCII di P. Viene sentito il segnale EOF sul byte 20, l’ultimo 
stampato. 

• trasferisce il settore 20,0 con il comando U1 nel buffer e, senza modificare il 
puntatore, legge i dati carattere per carattere con GET# e li stampa, linee da 155 a 
180. Dai risultati vedi che la lettura con GET# parte questa volta dal carattere di 
posizione 0. Questo blocco è stato scritto con B-W, che registra nella posizione 0 il 
numero 20, puntatore all’ultima posizione scritta nel buffer (nel byte 20 trovi il 13, 
codice di RETURN). Leggendo con U1 non viene sentito EOF, cioè non viene preso 
in considerazione il contenuto del byte di posizione 0 come puntatore a fine 
registrazione, come vedi il buffer viene letto e stampato tutto. 


• trasferisce il settore 20,1, scritto con U2, con il comando B-R nel buffer e, 
senza modificare il puntatore, legge i dati carattere per caratteere con GET# e li 
stampa, linee da 190 a 205. Dai risultati vedi che la lettura con GET# parte dal 
carattere di posizione 1, non sente EOF e legge tutto il buffer. 
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• trasferisce il settore 20,1 con il comando U1 nel buffer e, senza modificare il 
puntatore, legge i dati carattere per carattere con GET# e li stampa, linee da 210 a 
230. Dai risultati vedi che la lettura con GET# parte dal carattere di posizione 0, 
che in questo caso contiene 0. Scrivendo con U2 non viene posta alcuna segnalazio¬ 
ne in posizione 0. 


Per leggere con GET#, fino alla segnalazione di EOF (se viene sentita), e stampare 
8 dati per riga, si usa la routine in 300. 


10 REM RAHD0MPR0VE1 

20 REM DIFFERENZE TRA B-R E HI 

30 REM DIFFERENZE TRA B-W E U2 

33 A$= " F'R IM0 " : B$= " SECONDO " : C$= " TERZO " 

40 OPEN15,3,15,"I" 

45 REM SCRIVE 20,0 CON B-W 
50 0PEN2,8,2,"#" 

60 F'R I NT#2, A$ : PRI NT#2, B$ ■ F'R I NT#2, C$ 
70 PRINT#15,"B-W: 2,0,20,0" 

85 REM SCRIVE 20,1 CON U2 
98 0PEN3,8,3,"#" 

100 PRINT#3,A$ : FRINT#3,ET :PRINT#3,C$ 

110 PRINT#15,"U2^ 3,0,28,1" 

120 CL0SE2 : CLOSE3 

123 0PEN4,4 : REM APRE STAMPANTE 

125 REM LEGGE 20,0 CON B-R 

127 PRINT#4,"LEGGE 20,0 CON B-R" 

130 0PEN2,8,2,"#" 

140 PRINT#15,"B-R : 2,0,20,0" 

150 G 0 S U B300 : CL0SE2 

155 REM LEGGE 20,0 CON IH 

157 PRINT#4,"LEGGE 20,0 CON Ul" 

160 0PEN2,8,2,"#" 

170 PRINT#15," IJ1 : 2,0,20,0" 

18 0 G 0 S U B300 ; C L 0 S E 2 

190 REM LEGGE 20,1 CON B-R 

192 F'RINT#4, "LEGGE 20,1 CON B-R" 

195 0PEN2,8,2,"#" 

200 PRINT#15,"B-R : 2,U,20,1" 

205 GOSUB300 ; CL0SE2 
210 REM LEGGE 20,1 CON Ul 
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212 PRINT#4,"LEGGE 20,1 CON Ul" 

215 0PEN2,8,2,"#" 

220 PRINT#15,"Ul : 2,0,20,1" 

238 GOSUB300 : CL0SE2 

250 PRINT#4 :CL0SE4:CLOSE15 : STOP 

300 1=0 

305 GET#2, M - TS=ST:PRIHT#4,ASC<D$+CHR$(0>) ; 

306 I = I +1 : IFI=8THENFRINT#4: I=0 

310 IFTS=64THEN PRINT#4:PRIHT#4:PRINT#4: RETURN 
320 GOTO 305 


Seguono i risultati, tagliando quelli per i quali viene letto tutto il blocco, dato che, 
dopo i primi dati significativi, contiene tutti zeri. 


£GGE_20, 

O 0 O i£ 

0 

73 

CONJB 

77 

-R 

79 

13 

l“l •“! 

uO 

69 

67 79 

78 

68 

79 

13 

84 

69 

82 90 

79 

13 






LEGGE 20,0 i 

CON Ul 
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LEGGE 20.. 1 L'ON B-R 
80 82 73 77 73 13 83 68 

67 79 78 68 73 13 84 63 

82 90 79 13 0 0 0 0 

0 0 0 0 0 0 0 0 

0 0 0 0 0 0 0 0 

0 0 0 0 0 0 0 0 

0 0 0 0 0 0 0 8 

0 0 0 0 0 0 0 0 

0 0 0 0 0 0 8 0 

0 0 0 0 " 0 0 
0 0 


LEGGE 20.. 1 CON U1 
0 80 82 73 77 73 13 83 

63 67 73 78 68 73 13 84 

63 82 30 79 13 0 0 0 

0 0 0 0 0 0 0 0 

0 0 0 0 0 0 0 0 

0 0 0 0 0 r< Cl 

0 0 0 r ' 


Possiamo concludere che: 

• scrivendo con B-W viene registrato sul byte di posizione 0 il puntatore 
all’ultimo carattere scritto nel buffer, 

• scrivendo con U2 il byte di posizione 0 non viene toccato, 

• se non si danno comandi per spostare il puntatore, la scrittura dei dati inizia 
dal byte di posizione 1, 

• la lettura con U1 non sente la segnalazione di EOF, e, senza spostare il 
puntatore, inizia dalla posizione 0, 

• la lettura con B-R sente la segnalazione di EOF (ultima posizione raggiunta 
dal puntatore prima di scrivere), solo se il blocco è stato scritto con B-W, e, senza 
spostare il puntatore, inizia dalla posizione 1. 

Se vuoi, puoi, servendoti del programma di utilità DISPLAY T&S, stampare i 
settori del dischetto usati nelle prove. Ricordati che il contenuto dei byte viene 
stampato in esadecimale. 

Segue il programma R ANDOMPRO VE2; esso scrive sui settori 20,2 e 20,3, usando 
in partenza il puntatore in posizione 2, cioè saltando i primi due byte. Anche qui i 
due settori vengono scritti con gli stessi dati e con i due comandi disponibili, ma, la 
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prima volta si scrivono due volte i dati. Poi, nella fase di lettura, vengono letti, 
ciascuno nei due modi possibili, però, dopo il trasferimento nel buffer, viene posto 
il puntatore in posizione 0, ottenendo la stampa a partire dal primo byte. 


10 REM RAND0MPR0VE2 

20 REM USO DEL PUNTATORE NEL BUFFER A 2 

30 REM SCRITTURA CON B-W IH 20,2 

31 REM SCRITTURA CON IJ2 IH 20,3 

33 fì$="PRIMO":E$="SECONDO" : C$="TERZO" 

40 OPEN15,3,15,"I" 

45 REM SCRIVE 20,2 CON B-W 
50 0PEH2,8,2,"#" 

55 PRIHT#15,"B-P:2,2" 

60 PRI HT#2, HS : PRI HT#2, B$ : F'R I HT#2, OS 
65 PRIHT#2,H$:PRINT#2, B$:PRIHT#2, OS 
70 PRINT#15,"B-W : 2,0,20,2" 

85 REM SCRIVE 20,3 CON U2 
90 0PEH3,8,3,"#" 

95 PRINT#15,"B“P:3,2" 

100 PR INT#3,fl$: PR IHT#3,B$: PR INT#3, OS 
110 PR I NT# 15, 11 U2 :3,0,20,3 " 

120 CL0SE2 : CL0SE3 

123 0PEH4,4 : REM APRE STAMPANTE 

125 REM LEGGE 20,2 CON B-R 

126 REM PUNTATORE A ZERO 

127 PRINT#4,"LEGGE 20,2 CON 
130 0PEN2,8,2,"#" 

140 PRINT#15,"B-R: 2,0,20,2" 

145 PRINT#15,"B-P : 2,0" 

150 GOSUB300 : CL0SE2 

155 REM LEGGE 20,2 CON U1 

156 REM PUNTATORE A ZERO 

157 PRINT#4,"LEGGE 20,2 CON 
160 0PEN2,8,2, 

170 PRINT#15,"U1:2,0,20,2" 

175 FRINT#15,"B-P=2,0" 

180 GOSUB300 : CL0SE2 

190 REM LEGGE 20,3 CON B-R 

191 REM PUNTATORE A ZERO 

192 PRINT#4,"LEGGE 20,3 CON 
195 0PEN2,8,2,"#" 


B~R,PUNT.0" 


IJ1, F'UNT. 0" 


B-R, PIJNT. 0" 
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200 PRINT#15,"B-R: 2,0,20,3" 

201 PRINT#15,"B-P ; 2,0" 

205 GOSUB300 : CL0SE2 

210 REM LEGGE 20,3 CON IJ1 

211 REM PUNTATORE A ZERO 

212 PR I NT#4, " LEGGE 20,3 CON U1, F'IJNT. 0 " 

215 0PEN2,8,2,"#" 

220 PR I NT#15, 11 U1 : 2, 0,20,3 " 

221 PRINT#15,"E-P : 2,0" 

230 GOSUB300 : CL0SE2 

250 PRINT#4:CL0SE4:CLOSE15 : STOP 
300 1=0 

305 GET#2 ,m ■ TS=ST:PRINT#4,ASC <D$+CHR* < 0 > >; 

306 I = I +1 : IFI =STHENPRI NT#4 •' I =0 

310 IFTS=64THEN PRINT#4:PRINT#4:PRINT#4: RETURN 
320 GOTO 305 


Riportiamo i risultati, tagliando i blocchi lunghi e pieni di zeri. Abbiamo una 
differenza nella fase di stampa, rispetto al programma precedente, infatti, muoven¬ 
do il puntatore in posizione 0 dopo il trasferimento del blocco nel buffer, la prima 
GET# data sul blocco, scritto con U2 e letto con B-R, interpreta lo zero iniziale 
come fine file e non stampa dati. Come puoi vedere il puntatore registrato in 
posizione 0 con il comando B-W, segna per il settore 20,2 il numero 41. 


EGGE 

20 

, 2 C 

:0N I 

3-R, PIJNT. 0 


41 

0 

80 

82 

73 77 79 

13 

83 

68 

67 

79 

78 68 79 

13 

o4 

hìy 

82 

90 

79 13 80 

O O 

*-.*£- 

( vJ 

77 

79 

13 

83 69 67 

73 

?y 

6 a 

79 

13 

84 69 82 

90 

73 

13 
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LEGGE 20 

d L 

:0N U1, F'LJNT. 0 



41 0 

80 

82 73 

r r 

73 

13 

83 69 

67 

79 78 

hìy 

73 

13 

84 69 

8 iì 

90 79 

13 

88 

Oli! 

73 77 

73 

13 83 

63 

67 

73 

78 68 

f* 

13 84 

63 

82 

30 


79 13 0 U 0 0 0 0 

0 0 0 0 0 0 0 0 

0 0 0 0 0 0 0 0 

0 0 0 0 0 0 0 0 

0 0 0 0 0 0 0 0 

0 0 0 0 

lì * 

LEGGE 20,3 CON B-R,PUNT.0 
0 

LEGGE 20,3 CON Ul, PONT. 0 
0 0 80 82 73 77 73 13 

83 69 67 73 78 68 73 13 

84 69 82 30 73 13 0 0 

0 0 0 0 0 0 0 0 

0 8 0 0 0 0 0 0 

0 0 0 0 0 0 0 0 

0 lì ~ lì 0 0 

Segue il sottoprogramma ALLOCA per dimostrare l’uso corretto del comando 
B-A. 

1000 REM ALLOCA 

1005 REM TRACCIfl TX, SETTORE SX 

1010 REM SI SUPPONE APERTO UN CANALE DATI 

1015 REM SI SUPPONE APERTO IL CANALE 15 

1020 REM SI SUPPONE CHE SX SIA COMPATIBILE CON TX 

1025 REM SCARTA LA TRACCIA 18 

1030 F'R I NT# 15, " B-A ; 0 "TS ; SX 

1035 INPUT#15,EN,EM$,ET,ES 

1040 IFEN=0THEN RETURN 

1045 IFEN065THEN STOP 

1050 IFET=18THENTX=13 :SX=0: GOTO1030 

1055 TX=ET:SX-ES: GOTO1030 
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Il sottoprogramma ALLOCA opera così: 

• presuppone che sia aperto un canale dati e il canale comandi, che TX e SX 
contengano il numero di traccia e settore da allocare, che SX sia compatibile con il 
numero di settori consentiti per TX, 

• cerca di allocate TX,SX, linea 1030, 

• legge le quattro variabili di controllo sul canale 15, linea 1035, 

• se EN=0 esce, e il settore TX.SX è stato allocato, linea 1040, 

• se EN=65, significa che il settore richiesto è già occupato, allora controlla 
che la nuova traccia suggerita in ET non sia la 18 (directory), e, in caso cambia 
traccia e settore; altrimenti pone in TX e SX la traccia e il settore suggeriti in ET ed 
ES e va ad allocare il nuovo settore, linee 1050 e 1055, 

• se si verifica un errore di altro tipo si ha uno STOP, linea 1045, 

• in realtà si dovrebbe aggiungere la linea: 

1043 IF EN=65 AND ET=0 THEN STOP 

e questo significherebbe che viene controllato se il dischetto è pieno. 

Segue il programma RANDOMPROVE3, per dimostrare l’uso di B-W e di B-R, 
leggendo dal byte di posizione 0 la posizione raggiunta dal puntatore, spostandolo 
con B-P, e continuando a registrare dati nel buffer. 


10 REM RAND0MPR0VE3 

15 REM USO DELLA POSIZIONE RAGGIUNTA 

20 REM DAL PUNTATORE NEL BUFFER 

30 REM SCRITTURA CON B-W/ LETTURA CON B-R 

31 REM AGGIUNTA DATI SPOSTANDO IL PUNTATORE 

32 REM IN RASE AL CONTENUTO DELLA POSIZIONE 0 

33 A$="PRIMO":B$="SECONDO" 

40 OPEN 15,8/ 15.- "I" 

45 REM SCRIVE 20/4 CON B-W PRIMO DATO 
50 QPEN2/8/2/"#" 

55 F'R I NT#15/ 11 B- P : 2 .■ 2 " 

60 PRINT#2/A$ 

70 PR I NT# 15" B-W : 2 / 0 / 20 / 4 " 

80 CL0SE2 

83 0PEN4.. 4 ; REM APRE STAMPANTE 

84 PRINT#4/"DOPO SCRITTURA PRIMO DATO" 

85 REM LEGGE 20/3 CON B-R 

87 REM SPOSTANDO IL PUNTATORE IN POSIZIONE 0 
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90 0PEN2,8,2,"#" 

93 PRINT#15,"B-R: 2,0,20,4" 

94 PRINT# 15, "B-P: 2,0 " GET#2, Pi 

95 X=flSC(Pi+CHRiC0 >>:X=X+1 

96 PRINT#4,"PUNTATORE : "; X-1 

99 GQSUB300 

100 REM SPOSTA IL PUNTATORE AL VALORE LETTO IN Pi 
105 REM PIU" 1, PER SCRIVERE SECONDO DATO 

110 PRINT#15,"B-P : 2" JX 
115 PRINT#2,B$ 

120 PRINT#15,“B-W : 2,0,20,4" 

125 CL0SE2 

130 REM LEGGE 20,3 CON B-R 

135 PRINT#4,"DOPO SCRITTURA SECONDO DATO" 

140 0PEN2,8,2,"#" 

145 PRINT#15,“B-R:2,0,20,4" 

147 PRINT#15,“B-P : 2,0“ 

150 GQSUB300=CL0SE2 

250 PRINT#4:CL0SE4:CLOSE15 : STOP 

300 1=0 

305 GET#2, Di : TS=ST = PR I NT#4, ASC < Di+CHRi ( 0 > ) 

306 1 = 1 + 1 : IFI=8THENPRINT#4 : 1=0 

310 IFTS=64THEN PRINT#4:PRINT#4:PRINT#4: RETURN 
320 GOTO 305 


Seguono i risultati di RANDOMPROVE3. 


DOPO SCRITTURA PRIMO DATO 
PUNTATORE : 7 


0 

© 

CO 

82 

73 

77 79 

13 

DOPO 

! SCRITTURA 

SECONDO 

DATO 

15 

0 

80 

82 

73 77 

79 13 


69 

67 

'TT 

i* z 

ì 78 68 

79 13 


Come vedi, dopo aver scritto PRIMO, il puntatore indica 7, lo spostiamo alla 
posizione 8 e scriviamo SECONDO; alla fine il byte di posizione 0 reca 15. 
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Riepiloghiamo le operazioni da eseguire per scrivere un record su un file random: 

• Aprire il canale 15. 

• Aprire il canale per inviare i dati (OPEN...“#”). 

• Se si deve aggiornare o se il record logico nuovo non occupa un intero settore, 
leggere con B-R o Ul. il blocco fisico a cui appartiene il record logico. 

• Provvedere a spostare, o meno, il puntatore nel buffer. 

• Scrivere con PRINT# nel buffer, usando lo stesso Ifn usato nella 
OPEN..."#”. Dopo ogni trasferimento di dato, il puntatore avanza alla posizione 
seguente l’ultimo carattere scritto (di solito il CHR$(13)). 

• Scrivere il buffer sul dischetto con B-W o U2. 

• Chiudere il canale dati e il canale comandi. 

Riepiloghiamo le operazioni da fare per leggere un record da un file random: 

• Aprire il canale 15. 

• Aprire un canale per i dati con OPEN..."#”. 

• Leggere il blocco fisico a cui appartiene il record logico, con B-R o Ul. 

• Spostare il puntatore, se necessario. 

• Leggere con INPUT# o con GET#, con lo stesso lfn usato nella OPEN del 
canale dei dati. 

• Chiudere il canale dei dati e il canale 15. 


Vediamo ora i comandi che consentono una programmazione più sofisticata; li 
raccomandiamo solo agli appassionati programmatori. 

BLOCK-EXECUTE, abbreviazione facoltativa B-E 

Consente di caricare in un buffer dell’unità 1541 il contenuto di un settore del 
dischetto, e, considerandolo un programma in linguaggio macchina, lo manda in 
esecuzione a partire dal byte di posizione 0 del buffer. Per un corretto funzionamen¬ 
to del comando, devono essere verificate le seguenti condizioni: 

• il programma in linguaggio macchina deve avere la sua prima istruzione nel 
primo byte del settore, 

• esso deve occupare al massimo 256 byte, 

• il settore del dischetto deve essere stato preventivamente scritto con il 
comando U2, per non danneggiare il byte in posizione 0, 

• il programma deve terminare logicamente con l’istruziine RTS (ReTurn from 
Subroutine). 

Memory-Write, abbreviazione obbligatoria M-W 

Consente di registrare, al massimo 34 byte, nella RAM dell’unità 1541.1 parametri 
del comando sono in ordine: byte basso e byte alto dell’indirizzo di memoria da 
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dove iniziare a memorizzare, numero dei caratteri, byte da trasferire. Questi 
parametri devono essere passati con la funzione CHR$, avente per argomento il 
numero decimale che rappresenta il dato. Per esempio, se vogliamo scrivere all’in¬ 
dirizzo 1794, dobbiamo calcolare: 


1794/256 dà come parte intera 7, byte alto 
1794-7*256=1794-1792=2, byte basso. 


in conseguenza i primi due parametri sono: CHR$(2)CHR$(7). 


Se vogliamo trasferire 10 byte, il terzo parametro sarà: CHR$(10). 


Dopo aver scritto i 10 byte del codice macchina dobbiamo prenderne il valore 
decimale e usarlo come argomento dei 10 CHR$ successivi. 


Il comando si limita a memorizzare il codice a partire da un certo indirizzo. Per 
mandare il codice in esecuzione dobbiamo usare il comando M-E. 


Memory-Read, abbreviazione obbligatoria M-R 


Consente di leggere, tramite il canale comandi, il contenuto di un byte della 
memoria RAM o ROM dell’unità 1541 (possiamo considerarla equivalente alla 
funzione PEEK per il calcolatore). I parametri da passare sono il byte basso e il byte 
alto dell’indirizzo di memoria da cui vogliamo cominciare a leggere, passati con la 
funzione CHR$; così: 


PRINT# 15,“M-R:”CHR$(x)CHR$(y) 


dove y*256+x è l’indirizzo scelto per leggere. 

Il comando pone sul canale 15 il contenuto del byte, di cui si è passato l’indirizzo; 
per leggere il contenuto si deve eseguire: 


GET#15,C$ 


e in C$ si ha il dato. L’indirizzo viene incrementato automaticamente. 
Segue il programma LETTURA 1541, come esempio. 
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10 REM LETTURA1541 
20 REM LETTURA MEMORIA 

30 REM VIENE CHIESTO INDIRIZZO DI PARTENZA 

40 REM VIENE CHIESTO NUMERO BYTE DA LEGGERE 

50 OPEN15,8,15 

60 INPUT".«««INDIRIZZO = ";I 

70 INPUT"MMNUMERO BYTE : ";N 

80 11 = 1 NT •:! 17256 > : 12=1-11 *256 

90 PRINT#15,"M-R ; "CHR$<12 >CHR$<11) 

100 0PEN4, 4 :RRINT#4, "LETTURA DA: I 

110 L=0 : FORK=lTON 
120 GET#15,C$ 

130 PRINT#4,ASC <C$+CHR$<0)>; 

140 L=L+1 : IFL=8THENPRINT#4:L=0 
150 NEXTK : PRINT#4 :CLOSE4:CLOSE15 
160 STOP 


Con esso puoi leggere N byte a partire da un indirizzo I. 

Memory-Execute, abbreviazione obbligatoria M-E 

Consente di mandare in esecuzione un programma in linguaggio macchina che si 
trovi memorizzato o nella ROM o nella RAM dell’unità 1541. 

In particolare, questo comando deve essere usato per mandare in esecuzione i 
programmi memorizzati con il comando M-W. I parametri da passare con CHR$, 
sono il byte basso e il byte alto dell’indirizzo del primo byte del programma da 
eseguire. 

Esistono, inoltre, i comandi di tipo USER; essi, esclusi i primi due, che abbiamo già 
esaminato, servono per operare dei salti a particolari indirizzi della memoria 
dell’unità 1541. Gli indirizzi sono rilevabili dalla Tabella 3.4, prima riportata. 

Tu puoi memorizzare a partire da questi indirizzi (quelli situati in RAM) le tue 
routine in linguaggio macchina, e poi mandarle in esecuzione con Ui, con la solita 
PRINT#15. I comandi da U3 a U8 fanno saltare all’interno di uno dei buffer 
dell’unità. 


Con gli ultimi comandi visti si possono programmare operazioni che modificano i 
contenuti dei buffer, e, in conseguenza, dei file, e vengono eseguite all'interno 
dell’unità 1541. 
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3.10 Esempio di archivio RANDOM 


Riportiamo un esempio di archivio RANDOM con indice. Il programma ARCHI- 
RANDOM fa le seguenti cose: 

• crea su dischetto un archivio RANDOM con indice primario sequenziale, 

• lista tutto l’archivio in ordine secondo l’indice primario (ordinato in senso 
crescente), 

• aggiorna l’archivio: 

• aggiungendo record, 

• modificando record esistenti, 

• cancellando record esistenti, 

• crea un indice secondario in base a un qualunque campo del record, escluso il 
primo, 

• lista tutto l’archivio in ordine secondo l’indice secondario (ordinato in senso 
decrescente). 

Il record logico è stato strutturato in 14 campi (NC=I4), di tipo stringa: 


1) Cognome 

20 car. 

2) Nome 

15 ” 

3) Indirizzo 

30 ” 

4) Città (compr. CAP) 

25 ” 

5) Provincia 

11 ” 

6) Telefono 

10 ” 

7) Luogo nascita 

20 ” 

8) Data nascita 

8 ” 

9) Titolo studio 

20 ” 

10) Occupazione attuale 

20 ” 

11) Occupazione prec. 

20 ” 

12) Sdtato civile 

1 ” 

13) Nota 1 

20 ” 

14) Nota 2 

20 ” 


nel computo dei caratteri del record si deve aggiungere ad ogni campo un carattere 
di fine campo (noi usiamo il RETURN, CHR$( 13)). In conseguenza il record logico 
è formato da: 

21 + 16+31+26+12+11+21+9+21+21+21+2+21+21=254 

caratteri. I campi sono tutti di lunghezza fissa; i primi due caratteri di ogni settore 
non sono utilizzati, il record logico coincide con il blocco fisico. 
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Noi abbiamo strutturato i campi per contenere il solito archivio Anagrafico, ma 
non è difficile cambiare il numero dei campi del record, le descrizioni dei campi, le 
lunghezze in caratteri di ogni campo; infatti tutte queste definizioni sono raggrup¬ 
pate all’inizio del programma e sono facilmente modificabili. Inoltre noi abbiamo 
considerato una chiave di ordinamento formata dai primi due campi di ogni record: 
Cognome e Nome. In base a questa chiave viene preparato l’indice primario; esso 
contiene il cognome, il nome e l’indirizzo, traccia e settore, dove si trova il record 
corrispondente del file principale. 

Nella fase di creazione del file, viene preparato anche l’indice principale; esso viene 
costruito in memoria in 3 vettori opportunamente dimensionati, uno per la chiave, 
cognome + nome, uno per la traccia e l’altro per il settore. I record possono essere 
caricati anche non in ordine di chiave crescente, infatti il programma provvede a 
ordinare l’indice prima di scriverlo su disco. Il programma accetta anche cognomi e 
nomi uguali, e, in fase di ricerca chiede quale occorrenza della chiave si vuole (1, 
2,...). Il file indice è di tipo sequenziale, formato da record di 3 campi: chiave, 
traccia e settore. L’indice principale viene caricato in memoria all’inizio dell’elabo¬ 
razione (salvo che nella fase di creazione del file), può venire modificato, e viene 
riscritto su disco quando si termina l’elaborazione. L’indice principale, di nome 
INDI1, viene mantenuto in ordine di chiave crescente. 

Inoltre si può costruire un indice secondario, di nome INDI2, scegliendo come 
campo chiave un campo qualunque del record, salvo il primo. Tale indice viene 
ordinato in senso decrescente e memorizzato su disco. Si può ottenere una lista 
dell’archivio secondo INDI2. L’indice secondario può essere rifatto tutte le volte 
che si vuole, cancellando il precedente. 

Il programma usa un dischetto apposito solo per i dati; esso registra sulla traccia 1, 
settore 0, i dati generali del file, e cioè: nome dell’archivio, che coincide con il nome 
del disco, data di aggiornamento, numero record presenti, indirizzo di traccia e 
settore dell’ultimo record registrato. I record sono registrati a partire dalla traccia 
1, settore 1. 

Nella directory del dischetto dati sono registrati solo i file indice, INDI1 e INDI2, 
che sono dei normali file sequenziali. Il file random non compare nella directory; 
per questa ragione sul dischetto dati non si deve mai fare l’operazione VALIDATE. 
Infatti tale operazione cancella tutti i settori occupati, ma non registrati nella 
directory e ne rende disponibile lo spazio. 

Il problema deH’aggiornamento del file risulta molto più semplice che nel caso del 
file sequenziale, dato che si può accedere a qualunque record, dopo averne trovato 
l’indirizzo servendosi del file indice. Ti sembrerà ridondante aver scritto il cognome 
e il nome sia nel record principale che nel file indice INDI 1; ma abbiamo preferito 
avere un record completo nel file principale, cosa, del resto, necessaria per poter 
creare indici secondari. 
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Segue il listato del programma; come puoi osservare abbiamo cercato di impagina¬ 
re il programma in modo che sia abbastanza facile trovare i diversi blocchi. Inoltre, 
il programma è stato scritto in modo modulare; questo rende possibile operare le 
variazioni senza troppi problemi. Ti consigliamo di adattare il programma alle tue 
esigenze. L’unico blocco che è molto legato alla struttura del nostro record è quello 
relativo alla stampa, ma è semplice da modificare. 

Devi, però, ricordare che il programma si basa su un record logico coincidente con 
il settore, e che la somma delle lunghezze dei campi, compreso il carattere di fine 
campo, non deve superare 254. 


REM ARCHIRANDOM 

REM- 

REM DEFINIZIONE COSTANTI 
REM- 


E VARIABILI 


NC=14 : REM ENUMERO CAMPI RECORD** 
REM *********************** 
51$="DATA ULTIMO AGO. 

S2$="FINITO SPAZIO ASSEGNATO" 
SP*=" 


IO 
15 
20 
25 
3@ 

35 
40 
45 
50 

55 CH$=CHR$ ( 13 !:■ : LI M$--CHR$ < 99 > +CHR$ < 99 ) +CHR$ 
60 DIMD$(NC ):DIMV$(NC):DIML< NC) 

65 DATA"COGNOME :","NOME :","INDIR. 

DATA " CITTA ' : " , " PROV. : " TELEF. 

DATA"L.NASO.:","D.NASO. : ","T.STUD. 
DATA"0CC.AT. : ","OCC.PR. : ","ST.CIV. 

DATA"NOTA 1 :","N0TA 2 =" 

90 DATA20,15,30,25,11,10,20,8,20,20,20,1,20 
95 F0RK=1TONC: READD$<K) : NEXTK 
100 F0RK=1TONC ^ READL<K):NENTK 

REM **PRESENTAZIONE MENU" E SCELTE** 


r' '^'-i ì 


70 

75 

80 

85 


105 


, 2U 


110 

115 

120 


135 

140 

145 

150 

155 

160 


REM ******************************** 
OPEN15,8,15 

PRI NT " TIMI" .: TRE < 18 ) ; " GESTI ONE ARCHIV10 " : 
125 PRINTTAB<10 )"1 = INIZ10 EX-NOVO" 

130 PRINTTAB <18>"2=AGGIORNAMENTO" 

PRINTTAB <10)"3=LISTA PRINCIPALE" 

FRINTTAB<10)"4-CREflZ.IND.SEC." 

PRINTTAB(10)"5=LISTA SECONDARIA" 

PRINTTAB C10)"9=FINE" 

INPUT"COSA SCEGLI "; X 
IFXC10RX>5ANDX09THENPRI NT " .T ; : GOTO 155 


PRINT 






165 PRINT : GOSUE580 

170 R$="":PRINTTRE(1Q)"MONTA DISCO DATI" 

175 GETR$ : IFR$=""THEH175 
180 IFX=1THEN205 
185 FRI NT# 15.- " I " 

190 GOSUB480^ N-K:PRINT"PRESENTI ";K;" RECORD" 
195 PR INTS1 $ ; G1 $ ; " / " ; ri 1 $ ; " / " ; R1 $ 

200 IFX02THEH225 

205 REM- 

210 REM INIZIO EX-NOVO ARCHIVIO 

215 REM- 

220 FRI NT" QUANTI RECORD ".-INPUT H 

225 DIMCf<N >, TX < N >, SX C N > 

230 IFXO1THENGOSUE520 
235 IFX-9THEN1290 
240 0NXGUT0635,770,1095,1180,1240 
245 STOP 

250 REM **INGRESSO DATI** 

255 REM ***************** 

260 PRINT"ZIINGRESS0 DATI" 

265 FORJ= 1 TONO • V$ ( J > = " " : NEX'TJ 

270 PRINT"PER USCIRE $ PER COGNOME"; 

275 PRINT"MSE MANCANO DATIPREMI SOLO RETURN" 
280 PR I NTD$ <: 1 > ; •' INPUTYS ( 1 > 


285 

290 

295 

300 

305 

310 

315 

320 

325 

330 

335 

340 

345 

350 

“icrcj 

360 

365 


I FV$ <1> = "$"THE HIT-1 : RETURN 

FQRJ=2T0NC:PRINTD$<J >, :INPUTV$<J):NEXTJ 

REM **SISTEMA LUNGHEZZA DATI** 

REM ************************** 

FORJ=1TONO : V $< J> =LEFTT(V$(J > +SP$ ,L< J > > 

NEXTJ ■ GOSUE960 '■ RETURN 

REM **SCRITTURA INDICE PRINCIPALE** 

REM ******************************* 

PRINT#15,"SU : INDII":rr iNT#15,"I" 

OPEN10,8,10,"INDI1,S,W":GOSUE550 
FORJ=lTOK 

PR I NT# 10, c$ ( J > ; CH$ ; TX < J >, CH$ ; SX «: J > ; CHS ; 
GQSUB550 : NEXTJ 
CLOSE10:RETURN 

REM **SCRITTURA NEL BUFFER** 

REM ************************ 

FORJ-1TONC 
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GOSUB550 

SETTORE** 


370 F'R I NT# 11, Vi C J > ; CHi 
375 NEXTJ: RETURN 
3S0 REM **ALLOCA TRACCIA E 
385 REM 
390 PRINT#15,"B-R ; "0;T;S 
395 INPUT#15,EN,EMi,ET,ES 
400 I FEN=0THENRETIJRN 
405 IFENO65THEN570 
410 IFET=18THENT=19 : 3=8 :GOTO390 
415 T=ET : S=E3 : UUTU390 
420 REM **PUNTATQRE NEL BUFFER** 

425 REM ************************ 

438 PRINT#15,"B-P:"11 ; 2 :G0SUB550 : RETURN 
435 REM **SCRITTURA RECORD** 

440 REM ******************** 

445 PRINT#15,"U2 ; " 11J 0 ; T ;S:GOSUB550 : RETURN 
450 REM **LETTURA RECORD** 


455 REM ****************** 

460 PRINT#15,"I" : OPEN11,3,11,"#":GOSUB550 
465 PR I NT# 15, " U1 : " 11 ; 0T ; S : GOSUB550 : GOSUB430 
470 FORJ=1 TONO : INPUT#11,Vi<J>:GOSUB550 
475 NEXTJ:CLOSE11 : RETURN 
480 REM **LETT.DATI DISCO** 

485 REM ******************* 

490 OPEN11,8,11,"#":GOSUB550 
495 PR I NT# 15, " U1 : " 11J 8 ; 1,0: G0SUB55U 
580 GOSUB420 : I NPUT# 11, Ri, K, T, S ■’ GOSUB550 
505 G1Ì=LEFTÌ<Ri,2 >:M1Ì=MIDi< Ri,3,2 > 

518 FI 1 Ì=R I GHTi ( Ri,2 >: CLOSE 11 
515 TT=T:SS=S:RETURN 


528 REM **LETT. INDICE** 

525 REM **************** 

538 OPEN18,8,10,"INDI1,S,R":GO3UB550 
535 FORJ=lTOK 

540 I NF'i IT# 18 . i":i < .T ), VA < J “>. 9.K < .T : H0SUB558 
545 NEXTJ:CLOSE10 : RETURN 
558 REM **ROUTINE ERRORE** 

555 REM ****************** 

568 INPUT#15,EN,EMi,ET,ES 
565 IFEH=0THENRETIJRN 


578 FRINT"TERRORE DISCO" 

575 PRINTEN,EMi,ET,ES:CLOSE15 : STOP 


100 









580 

581 
585 
580 

585 

586 
600 
605 
610 
615 
620 
625 
630 
635 
640 
645 
650 
655 
660 
665 
6 7" 0 
675 
680 
685 
688 
685 
700 
705 
710 
715 
720 


730 

735 

740 

745 

750 


760 
7 65 
770 
775 


REM **DATfì DISCO** 

REM ************** 

PRINT"BRTR PER DISCO" 

IHPIJT " GG, MM, HRIIIIIBIIIB!" ; G*, M*, fi* ■ RETURN 
REM **SCRITT. IMB. SEC.** 

REM ********************* 

PRINT# 15, "S : IND12 11 '■ PRINT# 15, " I " 

OPEN10,8,10,"INDI2,S,W" 

FGRJ=1T0K 

PR I NT# 10, C$ ( J >CH$ ; TZ ( J ) ; CH$ ; SZ ( J > ; CH$, 
GOSUB550 ; NENT.J : CLO3E10 : RETURN 
GETR$ : IFR$=""THEN625 
RETURN 

REM----- 

REM INIZIRLIZZfiZIONE DISCO 

REM- 

PRINT " NOME DI SCO" : INPUTNT : T= 1 = S-0 
REM **BRTI DISCO SETTORE 1,0** 

REM ************************** 

PRINT#15,"NO : "+N$+",88" 

CLOSE15 : OPEN15,8,15:rriHT#15,"I" 

REM **DRTR RGG. E NUM. RECORD** 

REM *************************** 

OPEN11,8,11,"#":GOSUE550:GO3UE380:G0SUE43G 
K=0 

PRINT#11, G$H$R$CH$; K, CH$; 1 ; CHT : 1CH$; 

REM **F'RIMO SETTORE ERTI 1,1** 

REM ************************** 

GOSUE550 

PRINT# 15,"U2 : "11, G, TS : GOSUE550 

K=1 : W=0 : T=1 ; S=1 

G0SUE25Ù 

IFW=1THENK=K-1:CLOSE11 : GOTO1280 
GOSUE380 : GOSUB420 ; G0SUE355 
REM #*RGGIORNAMENTO INDICE** 

REM ************************ 

C$ K> =V$ < 1 > +V$ ( 2 > : TZ ( K > =T : SZ ( K > =S 
G0SUE435:K-K+1 

I FK>NTHENK“I< -1 : PRINTS2T : CLOSE 11 : GOTO 1280 
GOT U725 

REM-- 

REM RGGIORNAMENTO 
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780 

785 

789 

795 

800 

805 

810 

815 

820 

825 

330 

O j cr 
OOJ 

340 

845 

850 

r> rrr cr 

*•' ■ J 

860 

865 

870 

0 “ 7 cr 

o r • j 
880 
885 
890 
895 
900 
905 
910 
915 
920 
925 
930 

935 

936 
940 
945 
950 

rj crcr 
JJJ 

960 

965 

970 

975 

980 


PRI NTTAB ( 10 > ; 11 □«MRGGI ORNAMENTO flRCH IV10 " 

F'R INT : PRINTTflB< 10 > ; " 1 =C0RREZI ONE " 

PRINTTflB<10 >,"2=flGGIUNTA ELEM." 

PRINTTAB(IO),"3=CANCELL.ELEM." 

PR INTTAB C 10 ; " 9=F I NE " 

I NF'IJT " COSA 3CEGLI " ; X : I FZ-3THEN 1290 

I FX< 10RX>3THEN785 

IFX=2THEN1010 

IFX=3THEN1@50 

G0T0915 

REM SRI CERCA RECORD** 

REM ****************** 

PR I NT " □" ; D$ C 1 > ; : I NF’UTV$ ( 1 ) : W=0 
IFV$(1) = " $ "THENW-1 : RETURN 
PRINTD$<2>; ; INF'UTVT■■ 2> 

V$<1>=LEFT*(V$C1> +SP*,L <1> > 

V$ < 2 =LEFT$ ( V$ < 2 > +SP$ ,LC2> ) 

INPUT"QUALE OCCORRENZA ";X 

IFX<=@THENPRINT"H" ; :GOTO870 

FOR J=1TOK : IFC$<J>=V$<1>+V$<2> THEN9O0 

NEXTJ 

J=J-1 :PRINT"NON TROVATO ";Y$(1>;" "; V*<2 > 

G0SUB625•GUT0835 
IFXO1 THENX=X -1 : G0T0885 
T=T X < J > : S - S X £ J > 

I=J : J-K ; NEXTJ : RETURN 
REM SCORREZIONE** 

REM ************** 

G0SUB835 : IFW=1THEN785 
GOSUB450 

REM **VA A MODIFICA DATI** 

REM ********************** 

GOSUB960 

FRINT#15,"I"=OPEN11,8,11,"#":GOSUB420:G0SUB355 

C$<I)=V$(1> +V$<2 >: TX <I>~T^ SX <I)=8 

G0SUB435 : CL0SE11 : GOTO830 

REM **CONTROLLO DATI E MODIFICHE** 

REM ****************************** 

FRI NT "CONTROLLO DATI E MODIFICHE" 

FOR J= 1 TONO : PR I NTJ ; " " ; D$ ( J ) ; " " V$ ( J > : NEXTJ 
I NF’IJT " .«TUTTO BENE S/N " ; X# : I FX$= " S " THENRETURN 
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385 FRINT"QUALE CAMPO <8 USCITA)"; :INPUTX 

338 IFM-0THENRETURN 

335 IFX>NCQRX<1THENPRINT"m" : GOTO380 

1088 INPUTVi( X >•Vi<X> =LEFTÌ<Vi<X)+SF'Ì,L<X> > 

1005 GOTO370 

1010 REM RAGGIUNTA** 

1015 rem ************ 

1020 OPEN11,3,11,”#":GOSUE550 
1825 FRINT"RAGGIUNTA NUOVI RECORD" 

1030 PRINT"PRESENTI ",KJ" RECORD" 

1035 FRINT"PUOI AGGIUNGERE ";N~K," RECORD" 
1040 G0SUB625 


1045 T~TT ■' 3=SS ; W=U : K=K+1 : G0T0725 
1050 REM SCANCELLASIONE## 

1055 REM ***************** 

1060 M-0 

1865 G0SUB835 : 1FW=1THEN1885 
1070 X-L ( 1 >+L( 2> : CiI >-LEFTi <LIMi+SPi+SPi, X > 
1075 M=M+1 

1030 PRINT#15,"B-F :"8;T; 3 :GQSUB550 : GOTO1865 


1035 REM SIST. INDICE 
1038 GOSUB1355 ; K=K-M ; GOTO 1315 

1035 REM--- 

1100 REM LISTA FILE 

1105 REM- 

1118 Ti="LISTA PER INDICE PRIM." 

1115 PRINT"ACCENDI STAMPANTE PREMI UN TASTO" 

1128 GETRi: IFRÌ~""THEN1128 

1125 PRINT"3";T$:0PEN4,4 

1130 PRINT#4 :PRINT#4 :PRINT#4,Ti 

1135 FORJ= 1TO18 : PR I NT#4 : NEXTJ 

1148 L=2 : FORI = 1TOK : T=TX ( I > : S=SK < I > : GOSUB450 

1145 PRINT#4,Vi(1);" ";Vi<2) 

1158 PRINT#4,Vi(3 >," ",V$<4>," "; Vi( 5 > 

1155 FQRM-STOHC:PRINT#4,Di<M >; Vi<M ):NEXTM 

1160 PRINT#4 : PRINT#4 

1165 IFL=5THENPRINT#4:L=0 

1170 L=L+1 : NEXTI 

1175 CL0SE4:GOTO1340 

1188 REM- 

1185 REM CREAZIONE INDICE SECONDARIO 
1130 REM- 
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1135 F'R I NT " ni NDI CE SECONDAR 10 " 

1200 INPUT"«QUALE CAMPO ";*$ 

1205 X*VRL(X$>: IFX<20RX>NCTHEHG0T01200 
1210 G0SUB315 

1215 FORI = 1TDK :T=TX(I>:S=S%<I>:GOSUB450 

1220 CS(I)- r'S< X > : NEXTI 

1225 G0SUB535 : GOSUB520 

1230 PRINT"FINITO IND. SEC." 

1235 GOTO1340 

1240 REM- 

1245 REM LISTA PER INDICE SECONDARIO 

1250 REM- 

1255 PRINT"H_ISTA IND. SEC." 

1260 OPEN10,S,10,"INDI2,S,R":GQSUB550 
1255 FOR J= 1 TDK : INPUT# 10, CS< J ), TX< J>, SX < J) 

1270 GQSUB550 : NEXTJ 
1275 CLOSE10 :GOSUB1425 :G0SUB535 
1280 T$="LISTA IND. SEC. " 

1285 GOTOlii5 

1230 REM ##CHIUSURA## 

1235 REM ############ 

1300 FRINT"CHIUSURA ARCHIVIO" 

1305 PRI NT" IND. F'R INC. DA ORDIN. S/N "=INPUTRS 


1 

X 


10 IFRS- 


"THENG0SUB.1355 


1315 G0SUB315 : OPEN11,8,11,"#":OOSUB550 
1320 PRINT#15,"B-P:"11,2 
1325 PRINT#11,OSMSASCHS,K;CHT;T; CHS ;S; CHS, 
1330 GOSUB550 

1335 PRINT#15,"U2 : "11,0,1,0 : G0SUB559 ; CLOSE11 
1340 PRINT"FINITO AGGIORNAMENTO" 

1345 PRINT"SONO PRESENTI ";K;" RECORD" 

1350 CLOSE15 : STOP 

1355 REM ##ORDINAMENTO CRESCENTE** 

1360 REM ###*##################### 

1365 L=K-1 
1370 W=0 
1375 FORJ-1TOL 


1380 

1385 

1330 

1335 


IFCS(J><=CS<J+1)THEN140J 
RS=CS<J >:CS<J>=CSCJ+1) 
X=T“; ( J ':> : TJ-i C J > =T m <i ( J +1} 


: CS(J+l>=RS 
T?i<J+l>=X 


x=s?i ( j > : s/ ( j > =sk < j+ 1 > ; sz ■: ,t+ i ) 


1400 W=1 
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1405 

1410 

1415 

1420 

1425 

1430 

1435 

1440 

1445 

1450 

1455 

1460 

1465 


NEXT.J 

IFW=0THENRETURN 
IFL=1THEHRETURN 
L-L-l=GOTO1370 

REM ^ORDINAMENTO DECRESCENTE#* 
REM *************************** 
L=K-1 


W=@ 

FORJ=lTOL 


IFC$<J>2 
R$-C$ ( J 
X=TX<J> 

x=sx<:j> 


=C$<J+1)THEN1475 
• C$ J > =C$ < J+1 > : C$ < J+1 )=R$ 
TX ( J ) =TX ( J + 1 > : TK ( J+ 1 ) =X 
SX ( J > =SX C J+ 1 ) : SX t J+1 "> -i 


1470 M=1 
1475 NEXTJ 

1430 IFW=0THENRETURN 
1435 IFL=1THEHRETURM 
1430 L=L-1 : GOTO1440 


Il programma è formato dai seguenti blocchi: 

DEFINIZIONE COSTANTI E VARIABILI 
linee 15-100 

sono definite alcune costanti, i vettori per contenere le descrizioni dei campi del 
record, le lunghezze dei campi e i dati. Si usa l’istruzione READ per riempire i 
vettori di costanti. Volendo modificare la struttura del record logico, si deve 
lavorare in questo blocco. 

PRESENTAZIONE MENU’ E SCELTE 
linee 105-200 
viene presentato il menù: 
l=INIZIO EX-NOVO 
2=AGGIORNAMENTO 
3=LISTA PRINCIPALE 
4=CREAZ.IND.SEC. 

5=LISTA SECONDARIA 
9=FINE 

e, controllata la scelta, viene chiesto di montare il disco dati; se non è stata scelta la 
fase di creazione, viene segnalato quanti record sono presenti nell'archivio. 

INIZIO EX-NOVO ARCHIVIO 
linee 205-245 e 635-765 

viene chiesto il numero di record da trattare, vengono dimensionati i tre vettori 
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C$(N), T%(N) e S%(N), per l’indice principale. Da questo blocco si passa sempre, 
qualunque sia stata la scelta. Dopo le prime operazioni il programma segue strade 
diverse a seconda della scelta iniziale. Se la scelta è 1, si ha: 

• Formattazione del disco, con memorizzazione del nome dell’archivio (che 
coincide con il nome del disco), della data e dell’indirizzo iniziale del record dati 
(traccia 1, settore 1) nel settoreO della traccia 1. Tale settore viene sempre aggiorna¬ 
to, prima della chiusura, se non altro per la data, e vi viene registrato anche il 
numero di record presenti nell’archivio e l’indirizzo dell’ultimo settore usato. 

• Viene eseguito il sottoprogramma di richiesta dati (linea 250), e, quando i 
dati sono terminati, viene scritto su disco il file indice INDI 1, aggiornato il settore 
1,0 e il programma termina. 


AGGIORNAMENTO 

linee 770-1090 

viene presentato il menù: 

SCORREZIONE 
2=AGGIUNTA ELEM. 

3=CANCELL.ELEM. 

9=FINE. 

Dopo il controllo della scelta, il programma va a: 

• Correzione, linee 915-955 

servendosi dei relativi sottoprogrammi viene chiesto il record da modificare, viene 
modificato, viene riscritto e viene aggiornato l’indice in memoria. Il programma 
consente di modificare anche i due campi chiave; ovviamente, se si modifica la 
chiave, è necessario riordinare l’indice. 

• Aggiunta, linee 1010-1045 

servendosi dei relativi sottoprogrammi, vengono aggiunti record e aggiornato 
l’indice. Prima di chiudere deve essere riordinato l’indice. 

• Cancellazione, linee 1050-1090 

i record vengono cancellati ponendo nella chiave una stringa che inizia con un 
codice ASCII, ripetuto 3 volte, superiore al codice delle lettere dell’alfabeto. In 
questo modo, ordinando l’indice in modo crescente, i record cancellati vanno a 
finire in fondo e poi non vengono riscritti su disco. I settori che non servono più 
vengono liberati con la funzione B-F. 

LISTA FILE 
linee 1095-1175 

viene listato il file secondo un tracciato che occupa 11 linee, rispettando il cambio di 
foglio (66 linee). Riportiamo la lista di un record. 
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CARLINI GIULIO 

VIALE ROSE 45 20100 MILANO 

TELEF. : 12345678 

L.NASO. : CORSICO 

D.NASC. : 15061940 

T.STUD. : PERITO CHIMICO 

OCC.AT. : ANALISTA LABORATORI0 

OCC.PR.=TECNICO LABORATORI0 

ST.CIV.■C 

NOTA 1 : OTTIMO ELEMENTO 
NOTA 2 : MOLTO SCRUPOLOSO 


MI 


Questo blocco di programma dovrà probabilmente essere modificato, se si passa ad 
un archivio di altra natura e diversamente strutturato. 

CREAZIONE INDICE SECONDARIO 
linee 1180-1235 

dopo aver chiesto il numero del campo, da usare come chiave di ordinamento, per 
creare l’indice secondario (supponendo che possa variare tra 2 e NC), si crea l’indice 
secondario servendosi in memoria degli stessi vettori usati per l’indice principale. 
Alla fine l’indice secondario viene scritto sul dischetto con il nome INDI2, cancel¬ 
lando, se esiste, un precedente indice secondario. 

LISTA PER INDICE SECONDARIO 
linee 1240-1285 

viene usato INDI2 come indice per listare il file. 

CHIUSURA 
linee 1290-1350 

viene chiesto se l’indice principale è da ordinare; se la risposta è S, esso viene 
ordinato, e, comunque, viene riscritto su disco. Viene aggiornato il settore 1,0 per i 
dati generali del disco che sono: 

• data di aggiornamento, 

• numero record presenti, 

• indirizzo traccia e settore ultimo settore riempito (nell’allocazione di settori 
per aggiungere record si parte da questo indirizzo). 

Il programma termina segnalando sul video il numero dei record presenti nell'ar¬ 
chivio. 
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ORDINAMENTO CRESCENTE 
linee 1355-1420 

è la routine di ordinamento a bolle. Essa ordina in senso crescente il vettore C$(N), 
trascinandosi dietro neU’ordinamento i due vettori T%(N) e S%(N). Se il numero 
dei record è abbastanza elevato, tale routine risulta piuttosto lenta (vedi gli esempi 
di ordinamento nel primo volume), ma essa può essere facilmente sostituita con una 
più efficiente. 

ORDINAMENTO DECRESCENTE 
linee 1425-1490 

è la routine di ordinamento a bolle, ma ordina in senso decrescente. Vale quanto 
detto per la routine precedente. 

INGPESSO DATI 
linee 250-310 

richiede i dati per un record, rende i campi della lunghezza fissa stabilita, chiede 
conferma dei dati ricevuti e consente di modificarli. Per uscire dalla routine senza 
fornire dati, basta rispondere con il carattere “$” alla richiesta del cognome. Se il 
record è stato ricevuto la routine ritorna lo switch W=0, mentre se il record non è 
stato ricevuto ritorna lo switch W=l. 

La lunghezza dei campi (linee 295-310) è importante, infatti i record devono 
mantenere i campi della lunghezza stabilita. Qualora si desideri accedere a un 
particolare campo nel record, si deve poter porre il puntatore al valore previsto; se i 
campi non sono stati scritti come si deve, si rischiano grossi pasticci. 


SCRITTURA INDICE PRINCIPALE 
linee 315-350 

va a scrivere il file sequenziale INDI 1 su disco. 

SCRITTURA NEL BUFFER 
linee 355-375 

trasferisce il vettore dei dati nel buffer. 

ALLOCA TRACCIA E SETTORE 
linee 380-415 

alloca un settore, sistemando la BAM. 

Non viene controllato se EN=65 e ET=0; si suppone di lavorare con un numero di 
record compatibile con la capacità del dischetto. 

PUNTATORE NEL BUFFER 
linee 420-430 

pone il puntatore nella posizione 2 del buffer. 
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SCRITTURA RECORD 
linee 435-445 

scrive il buffer su disco nel settore T,S. 

LETTURA RECORD 
linee 450-475 

legge il settore T,S nel buffer e poi trasferisce i campi nel vettore Y$(NC). 

LETTURA DATI DISCO 
linee 480-515 

legge i dati generali del disco. 

LETTURA INDICE 
linee 520-545 

legge in memoria INDI 1. Non viene controllato l’EOF, dato che si legge un numero 
fisso di record. 

ROUTINE ERRORE 
linee 550-575 

controlla gli errori relativi alle operazioni disco. 

DATA DISCO 
linee 580-590 

richiede la data di aggiornamento. 

SCRITTURA INDICE SECONDARIO 

linee 595-630 

scrive su disco INDI2. 

RICERCA RECORD 
linee 85-910 

ricerca un determinato record, dopo aver chiesto: cognome, nome e occorrenza 
(sono ammessi record multipli). Segnala se non lo trova. 


Elenco variabili e costanti 

NC=14, numero campi del record 
Sl$, stringa descrittiva 
S2$, stringa descrittiva 

SP$,30 spazi, serve per aggiustare le lunghezze dei campi, deve essere lunga come il 
campo più lungo 

CH$=CHR$(I3), carattere RETURN, usato come fine campo 
LIMS=CHR$(99)+CHR$(99)+CHR$(99), serve per la chiave dei record cancellati 
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D$(NC), descrizioni campi record 

Y$(NC), campi dati 

L(NC), lunghezze dei campi dati 

K,J,L variabili di controllo 

N, numero record 

R$, variabile per risposta 

X, variabile di comodo 

G1$,M1$,A1$, data precedente 

C$(N), vettore per chiave indice 

T%(N), vettore per numero traccia 

S%(N), vettore per numero settore 

EN,EM$,ET,ES, variabili per routine errore 

T,S, indirizzo traccia e settore 

G$,M$,A$, data aggiornamento 

N$, nome disco e archivio 

W, switch per lettura dati 

X$, variabile per risposte 

TT,SS, indirizzo settore precedente 

M, numero record cancellati 

Il programma a volte invia dei messaggi sul video e non chiede risposta, per 
proseguire devi premere un tasto. Se viene chiesta la risposta affermativa, devi 
premere S. 

Le operazioni disco vengono svolte usando i comandi U1 e U2. 

Vediamo ora le critiche al programma: 

• non abbiamo dedicato particolare cura ai quadri video, 

• non abbiamo dedicato particolare cura alla stesura dei listati, 

• non abbiamo programmato liste parziali dell’archivio, 

• il programma dopo ogni funzione termina, per proseguire devi dare ancora 
RUN, 

• SUL DISCHETTO DEI DATI NON PUÒ’ ESSERE ESEGUITA LA 
FUNZIONE VALIDATE, PENA LA PERDITA DEI DATI. 

Prima di chiudere, facciamo un pò di conti, cioè vediamo quali possono essere le 
dimensioni di un archivio gestito dal programma ARCHIRANDOM. 

Il programma occupa, prima di dare RUN, 7397 byte, quindi, restano liberi per le 
variabili 38911-7397=31514 byte. 

Il dischetto ha 664 settori disponibili. Un settore è occupato per i dati generali del 
disco. Per ogni record vengono occupati: 

• I settore per il record, 

• circa 43 byte per il record di INDI1, 
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• circa 35 byte per il record di INDI2. 

Supponiamo di voler creare un archivio di 500 record; sono necessari: 

• 500 settori per i record principali, 

• 500*43=21500 byte per INDI1 in memoria, che diventano circa 80 settori sul 
dischetto, 

• 500*35= 17500 byte per INDI2 in memoria, ma questi non contano perchè si 
sovrappongono a quelli usati per INDI 1; essi, però, contano sul dischetto per circa 
70 settori. 

In sostanza sul dischetto si occupano 1 +500+80+70=651 settori, mentre in memo¬ 
ria occorrono circa 20000 byte per gli indici più le altre variabili. Sembra possibile 
arrivare a 500 record, ma devi tener presente che diventano molto lenti gli ordina¬ 
menti degli indici.Se vuoi gestire in modo sequenziale un file di questo tipo, devi 
leggerlo seguendo, record dopo record, il file indice INDI1. 

3.11 Esempio di archivio RANDOM/USER 

In questo paragrafo mostriamo come si può ovviare all’inconveniente che abbiamo 
puntualizzato per l’esempio precedente, cioè il fatto della non possibilità di usare il 
comando VALIDATE per un dischetto che contenga registrazioni RANDOM. 

Procediamo in questo modo: 

• prepariamo un programma, di nome INIZIO, che serve solo per inizializzare 
l’archivio, 

• esso crea un file sequenziale di tipo USER (USR), per distinguerlo dai 
normali sequenziali di tipo SEQ, registrando record logici esattamente di 254 
caratteri, compresi i caratteri di fine campo (RETURN), 

• il primo record logico contiene i dati generali del disco, completati con campi 
pieni di spazi per raggiungere 254 caratteri, 

• dopo, ogni record logico è formato dagli stessi campi del record logico del file 
RANDOM, in modo da coprire completamente il settore, solo che i campi sono 
tutti formati dal carattere CHR$(99) seguito, eventualmente, a seconda della 
lunghezza, da spazi (codice ASCII 32), 

• il sistema concatena i record usando i primi due caratteri di ogni settore, 

• il file di tipo USR viene registrato nella directory con il nome che gli è stato 
assegnato, che è anche il nome assegnato al disco dati in fase di formattazione, 

• il programma chiede a priori quanti record si vogliono, tale numero va deciso 
in fase di creazione del file, al limite restano poi dei record vuoti, 

• dopo la chiusura del file di tipo USR, il programma va a leggere nella 
directory l’indirizzo assegnato al primo record del file, 

• il programma comincia a scrivere su disco il primo record del file indice 
INDI1, lasciando in bianco la chiave e registrando l’indirizzo di traccia e settore, 
letto nella directory, questo primo record reca l’indirizzo del settore dove sono 
registrati i dati generali del disco. 
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• il programma legge in modo diretto (RANDOM) il primo blocco e scrive su 
disco il secondo record del file INDI 1 (che si riferisce al primo record del file 
random), lasciando in bianco la chiave, ma registrando l’indirizzo di traccia e 
settore, e, procede così per il numero dei record che sono stati registrati nel file 
USR, 

• alla fine sul discetto è registrato un file di tipo USR, che dopo verrà usato 
come RANDOM, ma senza dovere più nè allocare nè liberare blocchi, 

• inoltre sul dischetto è registrato INDI1, con le chiavi in bianco e gli indirizzi 
registrati, 

• per riconoscere i bloccchi liberi serve la chiave di INDI 1, contenente solo il 
carattere CHR$(99), seguito da spazi, 

• il disco dati può essere usato da un programma ottenuto da ARCHIRAN- 
DOM, modificandolo opportunamente, 

• il dischetto dei dati può subire la funzione VALIDATE senza danni, 

• qualora la struttura del record del file random non arrivi a coprire 254 
caratteri, si aggiunge in fondo un campo di riempimento, infatti per ottenere che il 
file sequenziale usi un settore per ogni record logico, questo deve essere esattamente 
di 254 caratteri, 

• quando il sistema crea un file sequenziale (anche USR), esso salta automati¬ 
camente la traccia 18. 


Per migliorare ulteriormente il nostro programma di archivio ci mettiamo nelle 
condizioni di non doverlo modificare, come suggerito nel paragrafo precedente, se 
cambiamo la struttura del record. Per semplicità continuiamo a ragionare in 
termini di record logico che occupa un intero settore. Possiamo procedere così: 

• prepariamo un programma di strutturazione dell’archivio, di nome PRE- 
STRUTT, 

• esso ci chiede: 

1) il numero dei campi del record 

2) la lunghezza e il nome di ogni campo, 

• controlla che la somma delle lunghezze dei campi, compresi i caratteri di fine 
campo, non superi 254, 

• scrive un file sequenziale con tutte le informazioni sulla struttura dell’archi¬ 
vio, 

• tale file sequenziale, che chiamiamo STRUTTURA, viene letto, sia dal 
programma di inizializzazione, INIZIO, che dal programma di gestione dell’archi¬ 
vio, ARANDOMUSER, e fornisce i dati necessari per lavorare. 

Segue il listato del programma PRESTRUTT. 
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5 REM PRESTRUTT 

10 S1$="LA SOMMA DELLE LUNGHEZZE SUPERA 254" 
15 S2S="M0DIFICA QUALCHE CAMPO" 

20 PRI NT " ZtDEF INIZI ONE STRUTTURA RECORDM" 

25 REM CHIEDE NUMERO CAMPI MINORE DI 20 

30 INPUT"NOME FILE ; ";Nf 

35 INPUT " QUANTI CAMP I : " ; NC 

40 IFNC<00RNC>20THEN20 

45 PRINT"ZNOMI E LUNGHEZZE CAMPI" 

50 PRINT"OGNI CAMPO MINORE DI 80 CARATT." 

55 PRINT"OGNI NOME MASSIMO 10 CARATTERI" 

60 DIMD*<NO,L<NC> 

65 FORK=1TONC 

70 PRINTK;"NOME : "; =INFUTDS<K> 

75 INPUT"LUNGHEZZA : ";L <K > 

80 NENTK 

85 PRINT"^CONTROLLO CAMPI" 

80 FORK=lTONC 

85 IFLEN C m ( K > > > 10THENDT < l< > =LEFTt- < D* < K >,10 > 

100 IFL < K> >78THENL< K> =78 

105 printk;d*<k>;" ",l<k> 

110 NENTK 

115 PRINT"«CONFERMI S/N ";:INPUTR$ 

120 IFR$="S"THEN145 
125 INPUT"QUALE CAMPO: ";X 
138 IFX<O0RX>NCTHEN125 
135 INPUT"CAMPO: ";D$<N> 

140 I NPUT " LUNGHEZZA : "L < N > : G0T085 
145 REM CALCOLA LUNGHEZZA RECORD 
150 S=NC '■ FORK=l TONC 
155 S=S+L CK > : NEXTK 

160 IFS/254THENPRINTS1$ :PRINTS2$:GOTO90 
165 FRINT"NOME FILE: ", m 
170 PRINT"LUNGHEZZA RECORD: ";S 
175 OPEN15,8,15,"I" 

180 0PEN2,8,2,"STRUTTURA,S, W" 

185 PRINT#2,N$ 

190 PRINT#2,NC 

195 FORK-1TONC:PRINT#2,D$(K> : NEXTK 
20O FORK-1TONC:PRINT#2,L <K>:NEXTK 
205 CLQSE2 
210 PRI NT" VERIFICA" 
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215 

UPEN2, o.• 2.. 

"STRUTTURA,S 

,R" 

220 

I MF'UT #2 .• fi$ 



225 

FRINT"HOME 

FILE : ";A$ 


230 

I NF'IJT #2 .■ X 



235 

FRI NT 11 NUMERO CAMPI: " X 


240 

FQRK=1T0X: 

IHPUT#2, D$ < K 

>:NEXTK 

245 

FORK=1T0N: 

INF'UT#2, L(K> 

:NEXTK 

250 

CL0SE2 



nr cr 
. J . J 

F0RK=1T0X: 

FRINIR,D*<K> 

,L(K> ; NEXTT 

260 

STOP 




Il programma chiede: 

• il nome da assegnare al file archivio, linea 30, 

• il numero dei campi e controlla che tale numero non superi 20 (per fare 
entrare la descrizione nel video, un campo per linea), linee 35-40, 

• il nome e la lunghezza di ogni campo, con possibilità di correzione, linee 
45-140, 

• se la somma delle lunghezze, compresi i caratteri di fine campo, supera 254, 
chiede di modificare qualche campo, linee 145-160 

• taglia le descrizioni dei campi a 10 caratteri, se più lunghi, linea 95, 

• taglia la lunghezza dei campi a 79, se maggiore, linea 100, 

• se tutto va bene, scrivi sul dischetto dei programmi (che quindi non deve 
essere protetto da scrittura), il file di nome STRUTTURA, di tipo SEQ, linee 
175-205, 

• il file STRUTTURA contiene: 

• nome del file, 

• numero dei campi del record, 

• nome di ogni campo, 

• lunghezza di ogni campo. 

Alla fine il programma ripropone, per controllo, sul video il contenuto del file 
STRUTTURA generato, linee 210-260. Il file STRUTTURA viene memorizzato sul 
disco del programma. 

Vediamo ora come è stato costruito il programma INIZIO: 

• legge inizialmente i dati del file STRUTTURA, mostra sul video il nome del 
file e il numero dei campi, poi chiede il numero N dei record da registrare per il file, 
ed elenca i nomi e le lunghezze dei campi, linee 10-105, 

• controlla che la somma delle lunghezze non superi 254, se supera si ha uno 
STOP, linee 110-120, 
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• prepara i campi dati, CHR$(99)+spazi, linee 125-145, 

• se la somma delle lunghezze è minore di 254, prepara un campo di lunghezza 
opportuna per riempire il settore, linee 150-170, 

•chiededi montare un disco dati nuovo da formattare e preparare per l’archi¬ 
vio, linee 175-190, 

• formatta il dischetto dati e apre un file sequenziale con il nome fornito dal file 
STRUTTURA e il tipo USR, linee 191-210, 

• comincia a scrivere sul file il primo record relativo ai dati generali del disco, 
linee 215-240, che sono: 


• nome file, 

• data, 

• numero N di record previsto (massimo), 

• numero record realmente esistente (inizialmente 0), 


• scrive il numero N di record richiesto, seguendo il tracciato rilevato dal file 
STRUTTURA, ma scrivendo campi formati da CHR$(99) seguito da spazi (o solo 
da CHR$(99)), linee 245-270, 

• chiude il file, che rimane registrato nella directory, con tutti i settori concate¬ 
nati usando i primi due byte, linea 275, 

• il file occupa N + l blocchi, 

• apre un canale per lettura diretta, il canale 2, linee 280-295, 


• legge in modo diretto (random) il settore 18,1 (primo della dyrectory) e, con il 
puntatore a 3, va a leggere l’indirizzo del primo settore usato, tale indirizzo è quello 
del blocco usato per i dati generali del disco, e chiude il canale 2, linee 300-35, 

• apre il file INDI1 sul canale 3, e un canale ad accesso diretto il 2, linee 
340-380, 

• scrive il primo record di INDI 1, quello relativo ai dati generali del disco, linee 
385-390, 

• legge in modo diretto gli N settori concatenati, prelevando dalle prime due 
posizioni di ogni blocco l’indirizzo di traccia e settore, e scrive il corrispondente 
record di INDI1, linee 395-430, 

• i campi chiave di INDI1 contengono la somma dei primi due campi del 
record (iniziano con CHR$(99)), 

• chiude i file, linee 435-440, 

• esegue la VALIDATE del disco, linea 443. 


5 REM INIZIO 


10 REM DIMENSIONA COSTANTI 
15 REM LEGGE FILE STRUTTURA 
20 CH$=CHR$<13) 

25 S1$=" " : F0RK=1Tu33 : S1$*S 


E VARIABILI 


1$+" " ; NEX'T'K 
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30 S2$=" 

35 OPEN15,8,15,"I" 

40 0PEN2,8,2,"STRUTTURA,3,R":C0SUB445 
45 IHPUT#2, m ,HC:G0SUE445 
50 N$=LEFT$<N$+S1$,16> 

55 PRINT"URTI FILE STRUTTURA" 

60 PRINT"FILE: ";N$," NUMERO CAMPI : ",HC 
65 INPUT"QUANTI RECORD: ";N 
70 IFN>50@THEN STOP 
75 NX$=STR$<N) 

80 NX$=RIGHT$< S2T+NXS,6 > 

85 DI MD$ NC >, L ( NC >, V$ < NC > 

30 FORK=1TONO : INPUT#2,D$ <K >:NEXTK 
35 FORK=1TONC: INPUT#2,L(K):NEXTK 
100 CL0SE2 

1@5 FORK=1TONC:PRINTD$(K);" ";L<K):NEXTK 

11tì 3R=NC:FORK=1TONC:SR=SR+L <K >:NEXTK 

115 PRINT"LUNGHEZZA RECORD: »;SR 

128 IFSR>254THENF‘RINT"NON POSSO PROSEGUIRE" : STOP 

125 REM CAMPI DATI CON CHR*C33> + SPAZI 

130 FORK=1TONC:V$(K>=CHR$<33):IFL<K) = 1THEN145 

135 FORJ-1TOLOO-1 

140 V$ < l< > ='t , $ < K > +CHRS ( 32 > : NEXTJ 

145 NEXTK 

150 IFSR=254THEN175 

155 REM CREA CAMPO FINALE SE SRC254 

160 IFSR=253THENDN$="": GOTO175 

165 DN$=CHR$< 33 >:FORK=1T0253-SR-1 

170 DN$=DN$+CHR$<32 > : NEXTK 

175 REM CREA FILE USER 

180 FRINT"MONTA DISCO DATI" 

185 PRINT"PREMI UN TASTO PER PROSEGUIRE" 

130 R$="":GETR$: IFR$=""THEN130 

131 PRINT"PAZIENZA, ATTENDI, STO PREPARANDO" 

132 PRINT"IL DISCO DATI" 

135 CLOSE15 : OPEN15,8,15,"NO :"+N$+",33" 

200 REM RIEMPIE RECORD 

205 REM CON CAMPI CHE INIZIANO CON CHR$C33) 

21U 0PEN2,8,2,N$+",U,N":G0SUE445 

215 REM SCRIVE PRIMO RECORD PER DATI DISCO 

220 REM OCCUPANDO UN INTERO SETTORE 

225 PRINT#2,N$CH$"GOMMAR"CHTHXTCHT"0"CH$" "CH$" "CHS, 
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230 GQSUB445 

235 F'RINT#2, S1 ÌCHÌS 1 ÌCHÌS 1 ÌCHÌS 1 ÌCHÌS 1 ÌCHÌS2Ì 

248 G0SUB445 

245 F0RK=1T0N 

250 FORJ=1TOHC 

255 PRINT#2,YÌ<J);CHì; 

260 GQSUB445 

265 NEXTJ 

266 IFSR<254THENPRINT#2,DNÌ 
270 NEXTK 

275 CLOoEZ 

280 REM CREN FILE INDICE 

285 REM INDIRIZZO PRIMO SETTORE DIRECTORY 

280 CLOSE15 : OPEN15,8,15,"I" 

285 0PEN2,8 ,2,"*"’ G0SUB445 

300 REM LEGGE SETTORE 18,1 

305 PRI NT# 15, " U1 : 2,0, 18 .• 1 " : G0SUB445 

310 REM PUNTATORE A TRACCIfi E SETTORE 

315 PRINT# 15,"B--P ■2,3" : GQSUB445 

320 Tì="":Sì="":GET#2,Tì,Sì 

325 TÌ=TÌ+CHRÌ(0>:SÌ=S$+CHRÌ(0) 

330 CLQSE2 

335 T=fìSC<T$):S=fiSC<3$> 

340 PRINT"PRIMO BLOCCO" 

345 PRINT"TRfiCCIfi■ "jT;" SETTORE : ";S 
350 PRINT"PREMI UH TASTO PER PROSEGUIRE" 

355 Rì="":OETRÌ:IFRÌ=""THEN355 

360 REM GENERA INDICE 

365 REM LEGGENDO FILE USR COME RfìNDOM 

370 CLOSE15 : OPEN15,8,15,"I" 

375 0PEN2,8,2,■G0SUB445 

380 QPEN3,8,3,"INDI1,S,W":G0SUB445 

385 REM SCRIVE PRIMO RECORD INDI1 

380 PRINT#3,Y$<1>+Y$<2 >;CH$,T;CH$;S:G0SUB445 

385 REM SCRIVE ALTRI N RECORD 

400 FORK=lTON 

485 PRINT#15,"U1 : 2,8";T;S : G0SUB445 
410 PRINT#15,"E-P: 2 , 0 ":G0SUE445 

415 GET#2,Ti,Si :G0SUB445 

416 T=fiSC ( Ti+CHRi ( 0 ■' ) ; S-fìSC ( Si+CHRi ( 0 ) ) 

420 PRINTT,S 
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425 

430 

435 

440 

443 

445 

450 

455 

460 


PRINT#3, 

NEXTK 


V* < 1 > + V$ <■. 2 > ; CH* j T ; CH$ ; S : G0SUB445 


F‘R I NT "IL DISCO DATI E" PRONTO" 

CL0SE2:CL0SE3 : CL0SE15 

OPEN 15, 8,15, " V " : CLOSE15 : STOP 

INPUT#15,EN,EM$,ET,ES 

IFEN=0THENRETURN 

PRINT"ERRORE DISCO":PRINTEN,EM$,ET;ES 


STOP 


Il dischetto dati, prodotto da INIZIO, in collaborazione con PRESTRUTT, è 
sicuro, cioè tutto è registrato nella directory. 

Puoi provare a listare INDI1 con il programma CONTRINDI1, che segue; così 
puoi vedere come il sistema usa i settori del dischetto, partendo da 17,0 e arrivando 
alla traccia 1, per proseguire poi dalla traccia 19. 


10 REM CQNTRINDI1 
20 OPEN15,8,15,"I" 

30 0PEN2,8,2,"IHDI1,S,R" 

35 0PEN4,4 ; PRINT#4,"CONTROLLO IHDII":rrint#4 
40 K=0 ; I=0 

45 INPUT#2,H $ ,T,S : TS=ST:K-K+1 

50 print#4,k;t;s;" ", 

60 I = I +1 : IFI=5THENPRINT#4: I=0 

70 IFTS=S4THENF'R I NT#4 : CLGSE2 : CL0SE4 : CLOSE 15 : STOP 
SO G0T045 


Noi abbiamo provato a generare un file dati, di nome PROVE, con 500 record, la 
directory del dischetto è riportata qui: 


0 yjaswifl: 

501 "PROVE 
90 "INDI1" 

73 BLOCKS FREE. 


tvamsa 

USR 
SEQ 
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come puoi vedere, con 500 record restano pochi blocchi per l’indice secondario; i 
nostri conti precedenti erano stati troppo ottimisti, può funzionare se si crea un 
indice secondario per un campo chiave di pochi caratteri.Si potrebbe risparmiare 
spazio su disco comprimendo l’indice, cioè riducendo il record logico da 3 campi a 
un campo, senza caratteri separatori, e memorizzando il numero di traccia e il 
numero di settore come una sola coppia di byte (CHR$) in coda alla chiave. 
Naturalmente gli altri programmi che usano INDI1 dovrebbero tenere conto di 
questa struttura. Noi abbiamo memorizzato traccia e settore come numeri, occu¬ 
pando più spazio del necessario. 

Puoi, servendoti del programma di utilità DISPLAY T&S, stampare il contenuto di 
qualche blocco, per controllare come ha lavorato il programma INIZIO. 

Ora dobbiamo vedere come trasformare il programma ARCHIRANDOM, espo¬ 
sto nel paragrafo precedente, per farlo lavorare su un dischetto dati preparato con i 
programmi PRESTRUTT e INIZIO. Il nuovo programma per trattare i file RAN- 
DOM/USER si chiama ARANDOMUSER. 

Le principali differenze rispetto a ARCHIRANDOM sono le seguenti: 

• il settore dei dati generali del disco non è più quello di indirizzo 1,0, ma il suo 
indirizzo si trova leggendo il primo record del file INDI1, 

• il file INDI 1 deve sempre essere caricato nei tre vettori dell’indice, qualunque 
scelta si faccia, a partire dal secondo record (il file ha N + l record), 

• la fase di inizializzazione ex-novo dell’arcrchivio sparisce dal programma, 

• tra i dati generali del disco ne figurano uno in più e due in meno, infatti si ha il 
numero N dei record previsti al massimo, e il numero K dei record effettivamente 
presenti, mentre non servono più la traccia e il settore dell’ultimo record scritto, 

• il file indice INDI 1 deve sempre essere ordinato e riscritto tutto, altrimenti si 
perdono gli indirizzi dei record, 

• nell’ordinamento del file indice in memoria, i record non usati, che iniziano 
con CHR$(99), vanno in fondo, ma restano, 

• per cancellare un record, si pone CHR$(99) seguito da spazi nella chiave di 
INDI1, per uniformarsi agli altri record vuoti, 

• il file INDI2 si riferisce solo ai record effettivamente presenti K, ma per 
operare correttamente si deve lavorare con un indice principale ordinato, 

• quando si aggiunge un nuovo record, si deve cercare nell’indice la prima 
chiave che inizia con CHR$(99), leggere il corrispondente settore e riscriverlo con i 
nuovi dati; non si devono infatti perdere i primi due caratteri di concatenamento. 

Segue il listato di ARANDOMUSER. 
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5 REM ARANE Ori USER 

10 REM- 

15 REM DEFINIZIONE COSTANTI E VARIABILI 

20 REM- 

25 51$="DATA ULTIMO AGO. 

30 S2$="FINITO SPAZIO ASSEGNATO" 

35 SP$=" 

40 CHT-CHR t<13 >:LIM$=CHR$(99)+CHRT(32 > +CHRT(32 > 
45 REM **LEGGE DATI DA FILE STRUTTURA** 

50 REM ******************************** 

55 OPEN15,8,15,"I" 

57 PRINT"EfóM"TAB<8>"MONTA DISCO FILE STRUTTURA" 

58 G0SUB619 

60 0PEN2,8,2,"STRUTTURA,S,R":G03UB525 

65 INPUT#2,NT,NC:G0SUE525 

70 DIMDTCNC)-DIMV$<NC> : DIMLCNC> 

75 FORK=1TONC: INPUT#2,D$<K) NEXTK 
80 FORK=1TONC■INPUT#2,L <K):NEXTK 
85 CLUSE2 

90 PR I NT " Zm" TAB ( 10 > " MONTA DI SCO DAT I " 

95 GOSUB610 

100 CLOSE15 : OPEN15,8,15,"I" 

105 REM **LEGGE DATI DISCO** 

110 REM ******************** 

115 OPEN10,8,10,"!NDI1,S,R":G0SUB525 
120 REM **SETTORE DATI GENERALI** 

125 REM ************************* 

130 INPUT#IO,AT,TD,SD 
135 G0SUE455 

140 REM **DIMENSIOHAMENTI PER INDICE** 

145 REM ****************************** 

150 DIMC$<N>,TKCN),S?i<N) 

155 REM **LETT'IJRA INDICE** 

160 REM ****************** 

165 G0SUB510 : G0SUB555 

170 REM **F‘RESENTAZI ONE MENU" E SCELTE** 

175 REM ******************************** 

180 PRINT" Zm" 1 TAB<IO), "GESTIONE ARCHIV10 1 
185 PRINTTAB<10 >”1=AGGIORNAMENTO" 

190 PRINTTAB <10)"2=LISTA PRINCIPALE" 

195 PRINTTAB<10>”3=CREAZ.IND.SEC." 

200 PRINTTAB<10>"4=LISTA SECONDARIA" 


F'RINT 
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F'R INTT RE ( 10 >"9=FINE " 

INPUT"COSA SCEGLI ",X 
IFX<10RX>4flNDX<>9THEHPRINT"□"; :G0T0210 
F'R I NT : PRI NT " PRESE NT I " ; K ; " RECORD " 

F'R I NTs 1 $ ; G1 $ , " / " ; ri 1 $ ; " / " ; A1 $ 

G0SUE610 
IFX=3THEN1230 
ONXGOTO705,1035,1120,1180 
STOP 

REM ##INGRESSO DATI*# 

rem ################# 

F'R I NT "□INGRESSO HATI" 

FORJ=1TONC:YT(J> = :NEXTJ 

FRI NT "PER USCIRE $ PER COGNOME".: 

PR INTRISE MANCANO DATI PREMI SOLO RETURN" 
F'RINTD$< 1 > : INPUTVSa > 

I FY$ < 1 :• = " $ " THENW= 1 : RETURN 

F0RJ~2T0NC : PRINTD$<J )> :INPUTY$<J> : NEXTJ 

REM ##SISTEMA LUNGHEZZA DATI## 

REM ########################## 

FORJ=1TONC:V*< J)=LEFTf<Y$< J> +SP*,L < J >> 

NEXTJ:GOSUB900 : RETURN 

REM ##3CRITTURA INDICE PRINCIPALE## 

REM #######:######################## 

F'R I NT# 15," S0 : IND II": RRI NT# 15, " I" 

OPEN10,S,10,"IND11,3,W"^ G0SUB525 

F'R I NT# 10, LI m ; CH$ .: TD .: CH$ .: SD ; CHT ; : G03UB525 

FORJ=lTON 

F'R I NT# 10, C$ < J .: CH$.: TX < J ), CH$ ; SX < J > ; CH$.: 
G0SUB525:NEXTJ 
CLOSE10:RETURN 

REM ##SCRITTURA NEL BUFFER## 

REM ###:#####*############### 

FORJ=lTONC 

PR I NT# 11, Y$ ( J >.: CHT- ; : G03UB525 
NEXTJ: RETURN 

REM ##LEGGI SETTORE NEL BUFFER## 

REM ############################ 

F'R I NT# 15, " U1 : 11,0 " ; T ; S : G0SUB525 : RETURN 
REM ##PUNTATORE NEL BUFFER## 

REM ######################## 

PRINT#15,"B-P : "11 ; 2 : G0SUE525: RETURN 
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418 

415 

428 

425 

438 

435 

448 

445 

458 

455 

468 

465 

470 

475 

430 

485 

490 

495 

496 

497 
500 
585 
510 
515 
520 
525 
530 

ET -I cr 
JOJ 

540 

545 

550 


•j 

568 
565 
570 
575 
580 
5 8 5 
590 
535 
600 
605 


REM **SCEITTURR RECORD** 

RE M ** ****************** 

PRI NT# 15, " U2 ; "ll.> 8 .i T ; S : G0SUB525 : RETURN 
REM **LETTURR RECORD** 

REM ****************** 

PRINT#15,"I": OPEN11,8,11,"#":00SUE525 
PRINT#15,"U1 "11,0 :T:8 :G0SUB525:G03UB485 
F0RJ=1T0HC : INPUT#11,V$(J>:G0SUB525 
NEXTJ:CLOSE11 : RETURN 
REM **LETT.ORTI DISCO** 

REM *************** **** 

OPEN11,8,11,"#" : G0SUB525 
PR I NT# 15," U1 : " 11,8 ; T'DSD : G0SUB525 
G0SUB335: INPUT#11,N$,R$,N,K ; G0SUB525 
G1$=LEFTC<R*,2 >:M1$=MID$(R$,3,2 > 

R1C=RIGHTC<RC,2> : CLOSE11 : RETURN 
REM **LETT. INDICE** 

REM **************** 

CLOSE18 : OPEN18,8,18,"IND11,S,R" : G0SUB525 

INPUT# 10, fi t-, TD, SD 

REM **DR SECONDO RECORD** 

REM ********************* 

FQRJ=1T0N 

INPUT#10, C$ (J>,TX<J>,SX(J):G0SUB525 
NEXTJ:CLOSE10:RETURN 
REM **ROUTINE ERRORE** 

REM ****************** 

I NPUT# 15, EN, EMC, ET, E3 
IFEN=@THENRETURN 
PRINT"«ERRORE DISCO" 

PRINTEN,EMC,ET,E8 :CLOSE15 : STOP 
REM **DRTfì DISCO** 

REM ************** 

PRINT"DATA PER DISCO" 

I NPUT " GG, MM, RRlIililiiilB" , GC, M$, RC : RETURN 
REM **SCRITT. IND. SEC.** 

REM ********************* 

PRINT#15,"S: IND12":PRINT#15,"I" 

OPENlo,8,10,"INDI2, S, U" 

FORJ-1TOK 

PR I NT# 10 , c$ ( J > ; CH$TX ( j > ; CH$ ; SX ( j > ; chc 
G0SUB525:NEXTJ:CLOSE1@: RETURN 


122 
















603 REM *#RTTESfl TASTO** 

603 REM **************** 

610 R$="":GETR$: IFR$-""THEN610 
615 RETURN 

620 REM **RICERCA POSTO LIBERO** 

625 REM ************************ 

630 FORICITOH 

635 IFLEFT*(C*<I),1> OCHR$(33 >THEHS45 
640 T=T/. ( I > : 3=5'/. ( I > : J J= I : I =N 
645 MENTI : RETURN 

650 REM **AGGIUNTfl NUOVI RECORD** 

655 REM ************************* 

660 G03UB245•UOSUB620 
665 IFW=1THENK-K-1'CLOSE11 : GOTO1230 
61 -' 0 G 0 3 U B380 ; G 0 S U B335 : G 0 3 U B 3 5 5 
675 REM **RGGIORNAMENTO INDICE** 

630 REM ************************ 

685 C$<JJ)=V$<1>+V$(2 > 

630 GU3UE410•K=K+1 

635 IFK>NTHENK=K~1 :PRINTS2*:CLOSE11 : GOTO1230 
700 GOTO660 

710 REM FIGGI ORNAMENTO 

720 PRINTTflB<10 >;" □8WRGGIORNAMENTO RRCHIV10" 
725 PRINT :PRINTTflB<10> "1=CQRREZIONE" 

730 PRINTTflB<1O>;"2=flGGIUNTA ELEM." 

735 PRINTTflB <10>;"3=CRNCELL.ELEM." 

740 PRINTTflB<1U >,"3=FINE" 

745 INPIJT " COSA SCEGLI " ; N : IFM-3THEN1230 

750 IFN<1ORN33THEN720 

755 IFN--2THEN350 

760 IFN-3THEN330 

765 GOT0850 

770 REM **RICERCA RECORD** 

775 REM ****************** 

780 pr i nt n" ; m e 1 >: i nput v$ e i > ■■ w=u 

735 I FV$ ( 1 > = " $ " THENW--1 : RETURN 
730 PRINTD*(2>.: • INPUTY$<2> 

735 V$<1>=LEFT$(V*C1>+SP$,L<1>> 

800 V$<2> =LEFT $ V*<2> +3P$,U.2 > > 
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305 INPUT"QUALE OCCORRENZA ",X 
810 I FX<-0THENPR I NT " 71" , : OOTOS05 
815 FORJ=1TON: IFC$<J > =Y$(1>+Y$<2>THEH835 
320 HEXTJ 

325 J=J-1 : F'R I NT " NON TROVATO " ; V$ ( 1 > ; " " 

330 G 0 SIJ E 610 : G 0 7'0770 

335 IFXO1THENN-N-1 : GOTOS20 

840 T=T/i<J>:S=S.-:U> 

345 I-J : J=H:HEXTJ: RETURN 
850 REM «SCORREZIONE#* 

355 REM ************** 

860 GOSUE770 : IFU=1THEN720 
865 GOSUE425 

370 REM **VA A MODIFICA DATI** 

875 REM ********************** 

880 GOSUB3O0 


Yi<2> 


IJ »_i 

830 
835 
300 
305 
310 
315 
320 
325 
330 
335 
34 @ 
345 
350 
355 
360 
365 
370 
375 
380 
385 
330 


F'RINT#15,"I": OPEN11,8,11,"#":G0SUB335:G0SUB35 

C$ I >=V$ ( 1 > +V$ 2 ) : VA < I > =T ■' SA < I > =S 

G0SUE410 : CLOSE11 : G0T085Ù 

REM **CONTROLLO DATI E MODIFICHE** 

REM ****************************** 

FRI NT "CONTROLLO DATI E MODIFICHE" 

FOR J= 1 TONO : F'R I NT J ; " ", D$ ( J > ; " " ; V$ ( J > : HEXTJ 
INPUT"MRJTTQ BENE S/N ";X$: IFX$="S"THENRETURN 
FRINT"QUALE CAMPO <0 USCITA)"; : INPUT/ 

IFX-UTHENRETURN 

I FX>NCORX< 1 THENF'R INT " TT' : GOTO320 
INPUTV$f X) : V$< X>=LEFT$ ( Y$<X> +SP$, L < X> > 

GOTO310 

REM RAGGIUNTA** 

REM ************ 

OPEN11,8,11,"#":G0SUB525 

F'R I NT ".TACCI UNTA NUOVI RECORD" 

F'R I NT " PRESE NT I " ; K ; " RECORD " 

F'R I NT " PUÒ I AGGI UNGERE "; N-K % " RECORD " 

GUSUB610 

W=@ : K=K+1 : GOTO660 
REM **CANCELLAZIONE** 
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935 REM *#*##*#*#######*$ 

1000 11—0 

1005 GOSUB770 •• I FW= 1THEN1025 

1 010 X=L(1 > +L<2 > ^ C*CI> =LEFT$<LIM$+SP*+SP$,X> 

1015 M--M+1 

1020 GOTO1005 

1025 REM SISI, INDICE 

1030 GOSUE1295 ; K=K~M : GOTO1255 

1035 REM-.-.—. 


1 040 
1045 
1050 
1055 
1 060 
1065 
1070 
1075 
1030 
1035 
1 030 
1035 
1100 
1105 


REM LISTA FILE 

REM- 

T$="LISTA PER INDICE PRIM. " 

PRINT"ACCENDI STAMPANTE PREMI UN TASTO" 

GQSUB610 

PRINT":2".;T$ : OPEN4,4 

PRINT#4 : PRINT#4 :PRINT#4,T$ 

PORJ=1TU10^ PRINT#4 :NEXTJ 

L=2•FORI=1TOK ; T-TX<I>•S=SXCI> : G0SUE425 

PRINT#4.. V$( 1 > ; " " j V$<2) 

PR I NT#4, Y$ ( 3 " " ; Y$ •: 4 > ; " " ; V$ < 5 > 

F0RM=6T ONC:PRINT#4,D$tM >": "Y$CM>:NEXTM 
F'R I NT#4 : PR I NT#4 
IFL=5THENPRINT#4 : L=0 


1110 L-“L+1 NIENTI 


1115 CL0SE4=GOTO1280 


1125 REM CREAZIONE INDICE SECONDARIO 

1130 REM--- 

1135 PRINT" DI NDICE SECONDARI0" 

1140 INPUT "[«QUALE CAMPO ";X$ 

1145 X-VAL< X*> ; IFX<20RX>NCTHENG0T01140 
1155 FORI=1TOK:T=TX < I>:8=SXCI> : G0SUE425 
1160 C* <I>=V$(X>: NENTI :GOSUB1365 
1165 G0SUE575 

1170 PRINT"FINITO IND. SEC." 

1175 GOTO1230 

1130 REM- 

1135 REM LISTA PER INDICE SECONDARIO 
1130 REM- 
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1195 FRINT"□LISTA IND. SEC." 

120tì OREH10,8,10,"INDIE,S ,R": G0SUB525 
1205 FORJ®1TDK : INPUT#10, C $<J >, TX <J >, $X (J > 

1210 G0SUB525=HEXTJ 
1215 CLQSE10 

1220 TT="LISTA IND. SEC. " 

1225 GOTO1055 

1230 REM ##CHIUSURA## 

1235 REM ############ 

1240 FRINT"CHIUSURA ARCHIVIO" 

1245 FRINT"IND. PRINC. DA ORDIN. S/N " : INPUTRT 

1250 IFRT="S"THENGOSUB1295 

1255 GOSUE310:OPEN11,S,11,"#":G0SUB525 

1260 FRINT#15,"B-R:"11,2 

1265 PRI NT# 11, N $ C IH $ G $ M $ A $ C H $, N ; CUT : K ; CHT, 

1270 G0SUB525 

1275 PRINT#15,"U2 : "11;8,TD; SD :G0SUE525:CLOSE11 
1280 PRINT"FINITO AGGIORNAMENTO" 

1285 FRINT"SONO PRESENTI ",K;" RECORD" 


1 

290 

CLOE 

E15 : STOP 




1 

295 

REM 

##ORD INAMENI' 

J GRES 

GENTE## 

1 

300 

REM 

############ 

##*### 

## 

E#### 

1 

305 

L=N- 

1 




1 

310 

W=0 





1 

315 

FORJ 

= 1TOL 




1 

320 

IFCi 


THEN 1E 

45 


1 

■j cr 

r$=l 

TU) : CTU>-C 

T < J +1 > 

: C 

f<J+l> = 

1 

330 

/=T“. 

U) ■TX<.J'j~TX 

< J-i-1 ) ^ 

TX 

( J+1 ) ==/ 

1 

-i •-;» C* 

O J 

»"i O i' 

( .J > : sx ( J ) ~ : SX 

U+l > : 

Oi‘( 

( j+ 1 ) =/ 

•1 

4. 

340 

W=1 





1 

345 

NE/T 

T 




1 

350 

IFW- 

0THENRETURN 




1 

355 

IFL= 

1THENRETURN 




•1 

X 

360 

L--L- 

1 ; GOTO1310 




1 

365 

REM 

*4 ORDIN AMENI" 

J DECRES 

GENTE## 

X 

3 ( 0 

REM 

******** * * * * ***** * * * * * * * * * * 


1375 L ::: l<-1 
1380 W-0 
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1385 

FORJ 

= 1T0L 



1350 

IFC$ 

< J>>=C$U+1 ;■ 

THEN1415 


1355 

R$=C 

$<J) : Ci( . T > =c 

$< J+l >: CI 

? ( J +1 > ~ 

1400 

X=TK 

<J> ; TXU>=TX 

■::j+l> -V/.' 

: j+i :>==:«: 

1405 

•*\ -- o 


( J+l > : S"; 1 

:j+i>=x 

1410 

W=1 




1415 

NEXT 

J 



1420 

IFW= 

0THENRETURN 



1425 

IFL= 

1THENRETURN 



143 0 

L~ : L“ 

1 : GOTO1380 




Non ripetiamo la lista delle variabili usate, infatti il programma è stato costruito 
modificando il precedente, e le differenze sono poche. Segnaliamo le variabili TD e 
SD, che contengono l’indirizzo del settore utilizzato per i dati generali del disco, e 
che deve essere aggiornato prima di chiudere. 

Anche questo programma potrebbe essere migliorato, infatti ogni funzione termina 
con la chiusura, e dato che il file guida, STRUTTURA, sta sul disco dei programmi, 
è necessario cambiare disco dopo aver dato nuovamente il RUN. Puoi modificare la 
linea 1290 così: 

1290 CLOSE15:GOTO90 

in modo che finita una fase ricompare la domanda MONTA DISCO DATI, come 
misura di prudenza per verificare che è montato il disco giusto. In questo modo non 
vengono persi i dati letti dal file STRUTTURA, come succede scrivendo RUN, e 
non si deve rimontare il disco dei programmi. 

Altro perfezionamento, utile se il file è formato da molti record, può essere quello di 
creare uno SWITCH, che viene messo a zero, quando viene letto in memoria 
INDI 1, e viene posto a I sesi operano aggiunte, cancellazioni o modifiche dei campi 
chiave dei record. Alla fine se lo switch è rimasto a zero, non è necessario nè 
riordinare l’indice, nè riscriverlo sul dischetto, infatti non è variato. 

Con file formati da molti record risulta necessario sostituire le routine di ordina¬ 
mento con altre più veloci. 
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Un’ultima considerazione riguardo all’indice del file, qualora i record logici fossero 
più corti, per esempio 127 caratteri, in modo da poterne scrivere due in un settore, 
nell’indice, oltre all’indirizzo del settore, dovrebbe comparire l’indicazione 1 o 2, o 
altro, per individuare il record. Inoltre per modificare o scrivere un record si 
dovrebbe sempre leggere tutto il settore, andare a modificare la parte che interessa, 
e poi riscrivere tutto il settore.Un file di tipo RANDOM/USER, come quello 
costruito da noi, può anche essere gestito come file sequenziale, senza ricorrere 
all’indice INDI1. La sequenza dei record dipende dal caricamento iniziale, dalle 
cancellazioni e dalle aggiunte. 


3.12 File RELATIVI di dati 

I FILE RELATIVI sono organizzati in modo tale, che, per accedere a un record 
logico, si deve fornire al DOS il suo numero d’ordine nel file. I record logici devono 
essere di lunghezza fissa. Il sistema, conoscendo la lunghezza in caratteri di un 
record logico e il suo numero d’ordine nel file, può, con un semplice algoritmo, 
determinare in quale blocco fisico inizia il record e quindi accedere ad esso, sia in 
lettura che in scrittura. Per poter lavorare così è necessario che i record logici siano 
tutti della stessa lunghezza, ma non è necessario che la loro dimensione sia un 
sottomultiplo di un settore. Sono consentiti record logici di lunghezza a piacere, 
purché minore o uguale a 254, compresi i caratteri separatori di campo e di record. 
Un record logico può, come del resto nei file sequenziali, stare a cavallo di due 
settori (spanned). 

II sistema, per gestire i file relativi, usa la tecnica che descriviamo: 

• Quando crea il file costruisce un suo indice interno, chiamato SIDE SEC- 
TOR. Esso consiste in un massimo di 6 settori, numerati logicamente da 0 a 5, che 
servono per contenere l’indice di tutti i blocchi fisici (settori) utilizzati per il file 
relativo. In ogni blocco SIDE SECTOR possono essere registrati gli indirizzi di 120 
settori; per questa ragione un file relativo può occupare al massimo 120*6=720 
settori. Per i nostri dischetti tale numero è sovrabbondante, dato che essi dispongo¬ 
no solo di 664 settori, e da questi dobbiamo toglierne 6 per i SIDE SECTOR. Il 
numero dei record logici gestibili non può superare 65535, infatti il numero di 
record logico si esprime in due byte. La struttura di un SIDE SECTOR è la 
seguente: 
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byte 0 e 1, concatenamento al settore successivo 
byte 2, numero del side sector, da 0 a 5 
byte 3, lunghezza del record logico, massimo 254 

byte 4 e 5, traccia e settore del side sector 0 

byte 6 e 7, traccia e settore del side sector 1 

byte 8 e 9, traccia e settore del side sector 2 

byte 10 e 11, traccia e settore del side sector 3 

byte 12 e 13, traccia e settore del side sector 4 

byte 14 e 15, traccia e settore del side sector 5 

byte 16 e 17, indirizzo primo settore dati 

byte 18 e 19, indirizzo secondo settore dati 


byte 254 e 255, indirizzo centoventesimo settore dati. 

• I settori usati per i dati sono, come sempre, concatenati usando i primi due 
byte, e ogni settore può contenere 254 caratteri di dati. 

• Viene registrata una entrata nella directory, che indica il numero totale dei 
blocchi occupati, comprendendo i blocchi per i dati e quelli occupati per i side 
sector. In questa entrata sono usati 3 byte per specificare l’indirizzo del primo side 
sector e la lunghezza del record logico. 

• Quando si crea il file, i record logici non usati sono riempiti dal sistema 
ponendo FFH (255 in esadecimale) nella prima posizione e zeri binari (00H) nelle 
successive. I record logici sono così marcati a priori. 

Per gestire un file relativo il sistema usa un buffer in più, tre invece di due, dato che 
deve gestire anche i side sector. Diminuisce così il numero dei file che si possono 
trattare contemporaneamente. 

Vediamo i comandi necessari per gestire i file relativi. 

APERTURA DEL CANALE COMANDI: 

OPEN15,8,15 
come sempre. 

APERTURA DEL FILE E DEL CANALE PER I DATI: 

OPEN#lfn,8,sa,fn+“,L,”+CHR$(LU) 
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dove: 

Ifn, numero logico del file, che noi, per abitudine, facciamo coincidere con il 
numero di canale sa, 

8, numero della periferica, 
sa, numero del canale, da 2 a 14, 

fn, nome del file, che può essere preceduto da “0:” per l’unità, 

L, parametro richiesto, precede la lunghezza del record logico, 

LU, lungheza del record logico, passata come carattere con CHR$, minore di 255. 

Nella OPEN non deve essere specificato il tipo di operazione, infatti si può sia 
leggere che scrivere, intercalando le operazioni. 


LOCALIZZAZIONE DEL RECORD E. EVENTUALMENTE, DEL CAMPO 
NEL RECORD: 

PRINT# 15,stringa-comando 

dove la stringa-comando si costruisce così: 

“P”+CHR$(lfn)+CHR$(LO)+CHR$(HI)+CHR$(BI) 

dove: 

P, sta per puntatore 

lfn, è il numero logico del file usato nella OPEN 

LO e HI, sono rispettivamente il byte basso e il byte alto del numero del record; si 
calcola: 

HI=INT(numrec/256) 

LO=numrec-H I *256 

BI, è il puntatore al byte nel record, cioè al primo byte di un campo: 1 per il primo 
campo, N per un campo che si trovi dopo i primi N-l caratteri dall’inizio del record. 
Questa PRINT# 15, deve esssere usata per puntare a un record e a una posizione; 
dopo si può procedere con PRINT#lfn, con INPUT#lfn o con GET#lfn, andando 
in sequenza. Si deve ridefinire una posizione se si salta altrove nel file. 


PER SCRIVERE DATI: 

PRINT#lfn, lista-dati 

con le solite regole, già viste, relative ai separatori tra le variabili e ai separatori da 
registrare. Devi però fare attenzione a quanto segue: 

• dopo aver posizionato il puntatore, la lista-dati che usi con la PRINT#lfn, 
deve comprendere tutti i campi che vuoi scrivere, uno di seguito all’altro in quel 
particolare record; devi cioè usare una sola PRINT per scrivere in un record. 
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• se usi diverse PRINT# successive, il dato viene via via scritto in record 
diversi, successivi a quello puntato con la PRINT# 15, 

• naturalmente puoi usare diverse PRINT# per scrivere in uno stesso record, 
ma devi riposizionare il puntatore, al record e alla posizione, prima di scrivere ogni 
campo. 


PER LEGGERE DATI: 

INPUT#lfn, lista-dati 

con le solite regole riguardo alla lunghezza dei campi, al loro tipo, e ai caratteri 
separatori. 

Per leggere carattere per carattere: 

GET#lfn, lista-dati 

per leggere un carattere in ogni variabile, che è bene sia di tipo stringa. 


PER CHIUDERE IL FILE: 

CLOSElfn e poi CLOSE15. 

La routine di errore, in fase di preestensione del file, deve ammettere il codice di 
errore 50. 

Fare la PREESTENSIONE DEL FILE significa aprire il file e creare tutti i record 
in modo DUMM Y, cioè riempiendoli con caratteri di comodo. Se si fa inizialmente 
questa operazione, la gestione del file risulta più veloce, infatti sono creati subito 
tutti i side sector necessari. Per fare la preestensione, basta aprire il file e andare a 
scrivere l’ultimo record; infatti il sistema per poter scrivere l’ultimo record deve 
predisporre tutti quelli che vengono prima. I record sono predisposti dal sistema 
ponendo FFH come primo carattere e continuando con 00H, senza separazione tra 
i campi, che esso non conosce. Qualora l’ultimo blocco dati (settore) non sia 
occupato tutto, il sistema lo completa con record DUMMY, pur registrando nel 
secondo byte la reale occupazione. 

Abbiamo preparato dei programmi esempio. Iniziamo con CREAREL; esso crea 
un file di nome PROVA REL, formato da 30 record logici di 21 caratteri ciascuno. 
A questo punto non interessa la suddivisione in campi del record logico. Il pro¬ 
gramma crea il file e lo preestende andando a scrivere, a partire dal fondo 30 record 
formati da 20 lineette più il carattere CHR$(I3). 
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5 REM CEERREL 

10 REM CREAZIONE FILE RELATIVO 
15 REM PREESTENSIONE FILE 
20 REM 30 RECORD DI 21 CARATTERI 
25 REM COMPRESO RETURN FINALE 
30 DR$="0" : NF$=DR$+"'PROVA REL,L," 

35 SA=2 : LF=2 : RC$= "-" : RC$=RC$+RC* 

40 E1=1 : NR=30 : LU=21 
45 OPEN15,8,15,"I" 

50 REM APERTURA FILE 
55 OF’ENLF, 8, SA, NF$+CHRf < LU ) 

60 GOSIJB135 

65 REM PREESTENSIONE FILE 
70 REM PER NR RECORD 
75 F0RN=NRT01STEF'-1 
80 HI = INT CN/256):LO=N-HI*256 
85 C$="P"+CHR$<LF) 

30 REM NUMERO RECORD (BYTE BASSO + BYTE ALTO) 
35 C$=C$+CHR$(LO >+CHR$<HI) 

100 REM PUNTATORE AL PRIMO BYTE DEL RECORD 
105 C$=C$+CHR$< BI) 

110 REM POSIZIONA IL PUNTATORE 

115 PRI NT# 15, C$ : GOSIJB 135 

120 REM SCRIVE IL RECORD DI LINEETTE 

125 PRINT#LF,RC* : GOSUB135 

130 NENT/:CLOSELF:GOSUB135 :CLOSE15 : END 

135 I NF'UT# 15, EN, EM$, ET', ES 

140 IFEN=@0REN=50THENRETURN 

145 printen;em$;et;es 

150 STOP:RETURN 


Il programma opera così: 

• Prepara le costanti necessarie, lf sta per numero logico del file (non si può 
usare LFN, dato che FN è una parola chiave). Pone sa e lf a 2, LU=21 per lunghezza 
record logico, RC$ contiene 20 lineette, BI=1 per puntare al primo carattere del 
record’, NR=30 per numero di record, linee 5-40. 

• Apre il canale 15 e inizializza il dischetto, linea 45. 

• Apre il file PROVA REL, linee 50-60. 

• Preestende il file scrivendo record di lineette. Nota come vengono svolti i 
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calcoli, dato che si parte dal fondo, ogni volta deve essere ricalcolato il numero del 
record, e deve essere eseguita l’operazione di posizionamento del puntatore. Linee 
65-130. 

Noi, per provare il programma, abbiamo agito così: 

• formattato un dischetto dati, 

• lanciato il programma CREAREL, 

• listato la directory del dischetto dati dopo l’esecuzione del programma, che 
riportiamo: 


0 iti a a va t va mamnmmm si rasi 

4 "PROVA REL" REL 

6 60 E L 0 C K S F R E E. 

READV. 


puoi vedere che il file occupa 4 blocchi, ovviamente 3 per i dati e 1 per l’unico side 
sector necessario, 

• abbiamo caricato il programmma DCOMEFS e l’abbiamo lanciato usando 
come dischetto quello con il file PROVA REL, abbiamo così osservato che il file 
inizia nel settore 17,0 e che il side sector si trova nel settore 17,10, come puoi vedere 
nella parte di risultati sotto riportati: 


RELATIVI RR 

160 50 65 160 160 160 160 


REL 17 0 PROVA REL 

17 10 21 

0 0 
4 0 

DEL 0 0 

0 0 0 
0 0 
0 0 

DEL 0 0 

0 0 0 
0 0 
0 0 
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• abbiamo caricato il programmma DISPLAY T&S, e abbiamo stampato i 
settori del dischetto dati che contengono il file PROVA REL, cioè il 17,0; il 17,11; il 
17,1; e poi il 17,10. 

Non riportiamo qui i risultati della stampa, che puoi facilmente ottenere anche tu. 
Ti consigliamo, però, di fare la prova, per renderti conto di quanto abbiamo 
esposto sui file relativi; vedrai, per esempio, i record a cavallo dei settori. 

Segue il programma SCRIVI REL, con il quale si possono scrivere record nel file 
PROVA REL, prima creato. Questo programma scrive nei record logici voluti due 
campi dati, il primo di 10 caratteri e il secondo di 9, più i fine campo. Puoi scrivere il 
record logico che desideri; se dai due volte lo stesso numero di record, il secondo si 
sovrappone al primo. 


5 REM SCRIVI REL. 

10 REM SCRITTURA RECORD NEL FILE RELATIVO 

10 REM 00HI RECORD £ CAMPI 

20 REM HOME DI 10 CARATTERI 

25 REM TELEEOH0 DI 9 CARATTERI 

30 REM LUH0MEZZA RECORD--10+1 +9+1 =21 

35 DR$="0":MF$=DR$+" ; PROVA REL,L," 

40 LU=21 : SA=2 : LF=2 : B$=" 

45 E1=1 : HR=30 
50 0PEH15,8,15,"I" 

55 REM APERTURA FILE 
60 OF'EHLF, 8, SA, NF$+CHR$ < LU > 

65 GOSUE160 

70 PRI.HT"HOME--* PER USCIRE"=PRIHT 
75 I HF'UT " HOME < 10 > "3H$ 

80 IFH$="*"THEH155 
85 H$=LEFT$(M$+B$,10 > 

90 I HF’UT "TEL. <9 > ", T$ : T$=LEFT*CT$+B$, 9> 

95 I HF’UT "RECORD " ; R 

100 IFR=00RR>HRTHEHPRIHTCHRT 145 ) ; : G0T095 
105 REM F’REPARAZIOHE F'UHTATORE 
110 HI = IHT < R/256>:L0=R-HI*256 

115 c$="p ,, +chr$*::lf::' 

120 C$=C$+CHR$<LO> +CHR$<HI> 

125 C$=C$+CHR$(EI) 

130 REM PREDI SPOME F'UHTATORE PER SCRIVERE 
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135 PRINT#15,C$:GOSUB169 
149 REM SCRIVE RECORD 
145 PRINT#LF,NTJCHR$(13) ; 7$ :GOSUB160 
158 GOTO70 

155 CLOSELF:GOSUB160 :CLOSE15 : END 

160 REM ROUTINE ERRORE, ACCETTA COD. 5@ 

165 INPUT#15,EH,EM$,ET,ES 

170 IFEN=00REN-5OTHENRETIJRN 

175 PRINTEH,EM-tCET,ES 

180 STOP : RETURN 


Il programma opera così: 

• Prepara le costanti, linee 5-45. 

• Apre il canale 15 e inizializza il dischetto dati, linea 50. 

• Apre il file relativo PROVA REL; si potrebbe omettere L e la lunghezza, dato 
che il file esiste già. Linee 60-65. 

• Chiede i dati per un record e il numero del record predispone il puntatore e 
scrive il record, linee 70-150. 

• Se si risponde con al nome, chiude il file e termina. 

Dopo aver fatto girare il programma puoi andare a stampare il contenuto dei 
blocchi, come suggerito prima, con DISPLAY T&S; vedrai i record che hai 
caricato. 

Segue il programma LEGGIREL per leggere un record qualunque dal file PROVA 
REL. 


5 REM LEGGIREL 

10 REM LETTURA RECORD 

15 BRT= " 0 " : NF$=DR$+ " ; PROVA REL, L, 11 

£0 LU-21 : Sfì-2 : LF-2 

25 BI”1 ; NR=30 

30 OPEN15,8,15,"I" 

35 REM APRE FILE 
40 0P E N L F, 8, S A, M F $+C H R T ( L UI 
45 GOSUB135 

50 FRINT"RECORD^ PER USCIRE" : PRINT 
55 INPUT "RECORD " .: R 
60 IFR=0THEN130 
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65 I F R<00 R R >HRTH E HPR I NTCHRT (145 > ; : GOTO 55 
70 REM PREPARA PUNTATORE 
75 HI = INT CR/256):LO=R-HI*256 
80 CT="P"+CHR$<LF) 

85 CT=CT+CHRTCLO > +CHRT<HI;• 

30 C$=C$+CHR$CBI> 

35 REM PREDISPONE PUNTATORE 

100 PRI NT#15,CT:GOSUE135 

105 REM LEGGE RECORD 

110 I NPIJTttLF, NT, TT ■ GOSUE 135 

115 PRINT"NOME : "; NT 

120 PRINT"TEL.: ";TT 

125 GOTO50 

130 CLOSELF •' GOSUE 135 : CLOSE15 : END 
135 REM ROUTINE ERRORE, AMMETTE COD. 50 
140 INPIJT# 15, EN, EMT, ET, ES 
145 IFEN=0OREN=50THENRETURN 

150 printen.;emt;et;es 

155 STOP ; RETURN 


Esso, dopo aver preparato le costanti e aperto il file, chiede il numero del record 
desiderato, calcola il puntatore, lo posiziona e va a leggere. Se vuoi leggere il file, 
come sequenziale, Io puoi fare con un solo posizionamento iniziale. 

Segue il programma LEGGECAMPOREL, che invece di leggere un record, va a 
leggere il secondo campo di un record, dando un valore opportuno al puntatore. 


5 REM LEGGICAMPOREL 

10 REM LETTURA SOLO DEL SECONDO CAMPO 

15 REM DI UN RECORD R 

2U DRT="O":NFT=DRT+": PROVA REL,L," 

25 LU=21 : SA--2 : LF=2 
30 EI-12 : NR=3@ 

35 INPUT"RECORD ".:R 

40 IFR=0QRR>NRTHENPRINTCHRT C145>; :G0T03Ù 
45 OPEN15,8,15,"I" 

50 REM RAREFILE 

55 OPENLF, 8, SA, NFT+CHRT C L.U > 
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60 GOSUB129 

65 REM PREPORR PUNTATORE 
70 HI=INT(R/256>:LO=R-HI*256 
75 C#="P"+CHR$<LF> 
oU L#—U$+GHR:f ( LO ) +CHR$ (HI ) 

85 C$-C$+CHR$<BI> 

90 REM POSIZIONO PUNTATORE 
95 PRINT#15,C$:GOSUB120 
100 REM LEGGE CAMPO 
1@5 INPUTttLF , 7%■ GOSUB120 
110 FRINT"TEL.: "; 7$ 

115 CLOSELF:GOSUB120 :CLOSE15 : END 

120 REM ROUTINE ERRORE, AMMETTE COD. 50 

125 INPIJT# 15, EN, EM$, ET, ES 

138 IFEN=@0REN=50THENRETURN 

135 PRINTEN,EM$.;ET,ES 

140 STOP : RETURN 


Vogliamo farti riflettere sul fatto che il sistema, per consentirti di scrivere, per 
esempio, il quinto record del file, deve: 

• determinare a quale settore appartiene il record, 

• leggere il settore in un buffer, 

• predisporre il puntatore nella giusta posizione, 

• trasferire nel buffer i dati che tu scrivi, 

• riscrivere sul dischetto l’intero settore. 

Tutte queste operazioni per te risultano trasparenti, ma vengono eseguite. Nel caso 
dei file random, invece, queste operazioni le deve predisporre il programmatore nel 
suo programma. 

La comodità di uso dei file relativi si paga con una maggiore occupazione di spazio 
disco, al massimo i sei settori dedicati ai side sector. 

Anche per i file relativi sussiste il problema del reperimento del record in base ad un 
campo chiave ed è necessario ricorrere ad un file indice sequenziale, come per i file 
random. Solo che, in questo caso, nell’indice deve comparire la chiave del record, e, 
come indirizzo, il suo numero d’ordine nel file. 
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3.13 Esempio di archivio RELATIVO 


Abbiamo modificato il programma ARCHIRANDOM per costruire il programma 
ARCHIRELATIVO. 

Anche in questo caso abbiamo creato, in fase di generazione del file, un file indice 
sequenziale INDI1, avente come chiave, di ordinamento i primi due campi del 
record logico; cognome e nome. L’indirizzo del record è il suo numero d’ordine nel 
file, in conseguenza il record del file indice INDI1 è formato solo da due campi, 
chiave e numero d’ordine. 

E possibile costruire un indice secondario INDI2, con le stesse caratteristiche di 
quello dei programmi esempio precedenti. 

Nella fase di creazione dell’archivio ex-novo, viene preesteso il file relativo al 
numero dei record richiesto, e viene creato il file indice INDI I. Il file indice INDI 1 
deve sempre essere riscritto tutto sul dischetto, per non perdere indirizzi. Questa 
volta abbiamo modificato il modo di gestire i dati generali dell’archivio; abbiamo 
creato un piccolo file sequenziale, di nome DATIGEN, che contiene il nome del file 
relativo, la data di aggiornamento, il numero totale di record previsti e il numero di 
record in essere. Il file DATIGEN viene letto all'inizio dell’elaborazione e riscritto 
alla fine. 


5 REM HRCHIRELATIVO 


15 REA DEFINIZIONE COSTANTI E VARIABILI 

25 NC=14 : REM ENUMERO CAMPI RECORD** 

30 REM *********************** 


35 S1$="DATA ULTIMO AGO. 

49 32$="FINITO SPAZIO ASSEGNATO" 

45 SP$=" 

46 SWW=0 : REM PER EVITARE RIDIMENSIONAMENTO 

5tì CH$=CHR$< 13 >:L IM$=CHR$ f 99 > +CHR $<93 ) +CHR$ < 99 > 
55 DI MD$ < NC > : DIM V$ < HC ) ; DI MI. < NC > 


60 DATA"COGNOME: 
65 DATA"CITTA' 
70 DfiTA"L.NfìSC. 
75 BATA"OCC.AT. 
80 DATA"NOTA 1 


","NOME "INDIR. 

","PROV. : ","TELEF. 
","D.NASO. : ","T.STUD. 
","OCC.PR. : ","ST.CIV. 
","NOTA 2 " 


85 DATA20,15,30,25,11,10,20,8,20,20,20,1,20,20 


90 FOR J= 1TONC : RE ADDÌ' < J > : NEXTJ 
95 FORT” 1 TONC : READL < J ): NEXTJ 
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100 REM **PRESENTAZIONE MENU" E SCELTE** 

105 REM ******************************** 

110 CLOSE15 : OPEN15,8,15 

115 PRIHT":i««" ; TRE< 10), "GESTIONE ARCHIVIO" ; PRINT 
120 PRINTTfiB(10>"1=INIZI0 EX-NOVO" 

125 PRI NTTRE(10>"2-AGGIORNAMENTO" 

130 PRINTTfiB(10 >"3=LISTA PRINCIPALE" 

135 PRINTTfiB<10 >"4=CREAZ.IND.SEC." 

140 PRINTTfiB<1O:"5=LISTA SECONDARIR" 

145 PRINTTRE(10>"3=FINE" 

150 INPUT"COSA SCEGLI ";X 
155 IPNC 10RX>5fiNBX<>9THENPRINT ".T, : GOTO 150 
160 PRINT : G0SUE675 

165 R$="":PRINTTfiBC10)"MONTA DISCO HAT I" 

170 GETRf•IFR$=""THEN170 
175 IFX=1THEN210 
ISO PRINT#15,"I" 

185 GOSUB580 : PR I NT " PRESENTI " ; l<" RECORD " 

186 NNÌ~N$+ ", L, " +CHR$ < 254 ) 

130 pr INTS1 $ ; G i $ ; " / "M1 $ ; "/ " ; Fi 1 $ 

131 R$="":GETRÌ: IFR$=""THEN131 

132 IFSWW=0THENDIMC$< H>,TX<N> 

133 G0SUB615 

135 IFX=3THEN134@ 

200 ONX-1G0T0825 .• 1150, 1235, 1230 
205 STOP 


215 REM INIZIO EX-NOVO ARCHIVIO 

225 PRINT"POSSO FORMATTARE IL DISCO DATI S/N" 

230 R*="" : INPUTRÌ :IFR$=""THEN23U 

235 IFRì="S"THEN240 

237 STOP 

240 GOSUE740 

250 INPUT"MNOME FILE DFl INIZIARE : " ; N$ 

255 INPUT"QUANTI RECORD IN TUTTO : ";N 

260 DIMC$<N >, TX <N>:SWW=1 

261 REM PREPARAZIONE CAMPI DUMMV 

263 P1 P~-- " # " = FORJ= 1T052 : P1 Ì=P 1 $ + " " : NEXTJ 
265 P2$=LEFT$( P1 ì .■ 37 ) 

273 REM PREESTENSIONE FILE H$ 

274 OPEN11,8,11,N$+",L,"+CHRÌ(254 > 
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275 

2S0 

285 

290 

293 

294 

295 
300 
305 
310 
315 
320 
325 
330 
• J o 5 


F ORJ=NTQ1STEP-1 

HI = I NT J/256 > : LO=J-HI *256 

C$="R"+CHR$(11)+CHR$<LO >+CHR$CHI)+CHR$<1 

PRINT#15; C$ '■ G0SUB645 

PRI NT# 11, P1 $ CH$F‘ 1 $CH$P 1 $CH$P 1 $CH$P2$CH$ ; 
GU3UB645 

NEXTJ : CLOSE11 : G0SUB645 
REM F’REPRRFIZIONE INDICE 

forj=iton:t;-;<j>=j 

C$CJ)=LIM$:NEXTJ 
GOSUB390 : REM SCRIVE INDI1 
K—0•GUSUE485•OUTOl10 
REM **INGRESSO DATI*# 

REM ***************** 

PRINT"^INGRESSO DATI" 


340 FORO-1TONC: V*(J > = "":NEXTJ 

345 PRINT"PER USCIRE $ PER COGNOME"; 

350 PRINT"USE MANCANO DATIPREMI SOLO RETURN" 
355 PR I NTD$ < 1 > ; : I NF'UTVT < 1 > 

360 I FY$< 1) = "$" THENN=1 : RETURN 

365 FORJ=2T0NC:PRINTD$<J )>-l NPUTV»(J>:NEXTJ 

370 REM **SISTEMA LUNGHEZZA DATI** 

375 REM ************************** 

380 FQRJ=1TONC : V$(J)=LEFT$(V$<J >+SP$,L < J)) 

385 NEXTJ ; GOSUE1020 : RETURN 

390 REM **3CRITTURA INDICE PRINCIPALE** 

395 REM ******************************* 

400 PRINT#15,"SO : IND11":PRINT#15,"I" 

405 OPEN1O,8,10,"INDI1,S,W":G0SUB645 


410 FORJ-1TOH 


415 PR I NT# 10, C* ( J > ; CH$ ; TV. < J > ; CHI: 

420 G03UE645:NEXTJ 
425 CLOSE10:RETURN 

430 REM **SCRITTURA RECORD PUNTATO** 

435 REM **************************** 

437 REM «OSTRUZIONE STRINGA DI STAMPA** 

438 REM ********************************* 
440 C$="" : FORJ=lTONC 

443 C$-C$+V$<J>+CH$: NEXT J 
445 PR I NT#11 , C $; : GOSUE 645 
450 RETURN 

455 REM **DEFIMISCE POSIZIONE RECORD l<** 
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460 
465 
478 
475 
4S0 
485 
490 
495 
500 
505 
510 
515 
528 
525 
530 
535 
540 
545 
550 
555 
560 
565 
570 
575 
580 
585 
590 
595 
600 
605 
610 
615 
620 
625 
630 

fci ! "I. J 

640 
645 
6 5 O 
655 
660 
665 


REM 

HI = INT C T/256 > 

LO=T-H1*256 

F'R I NT# 15," p " +CHR# ( 11 ) +CHR$ ( LO ) +CHR$ < HI ) +CHR$ < 1 
G0SUE645: RETURN 

REM **SCRITTURR ERTIGEN DISCO** 

REM *************************** 

FRINT#15,"SO : DflTIGEN" 

PRINT#15,"I” 

OPEN10,8,10,"DRTIGEN,S,N":G0SUB645 
PRINT#10,N$CH$G$M$R$CH*,N,CH$;K,CH$; 

CLOSE10:RETURN 

REM **RICERCA POSTO NELL'INDICE** 

REM ***************************** 

JJ—0 :FORJ=lTON 

I FLEFT$ <C$(J >, 1 ) =CHR$ (99;■ THEN 545 
NEXT J : RETURN 
JJ—J : J-N:GOTO540 
REM **LETTURR RECORD** 

REM ****************** 

PRINT #15,"I"•OPEN11,8,11,NN$ : G0SUB645 
G0SUE455 

FORJ=lTONC ■ INPUT# 11, V$U) : G0SUE645 
NENTJ : CLOSE11 •' RETURN 
REM **LETT.ERTI DISCO** 

REM ******************* 

OPEN10,8,10,”DRTIGEN,S,R":G0SUB645 
INPUT# 10, m , R $, N, l< : G0SUE645 
CLUSE18•OUSUE645 
G1 $-LEFT$ R$ ,2>: M1 $=MID$(R$, 3,2> 

R1 $=R I GHT$ R $, 2 > : RETURN 
REM **LETT. INDICE** 

REM **************** 

OPEN10,8,10,"INDI1,S,R":G0SUE645 
FORJ-1TON 

I NPUT# 10, C$ ( J >, T”; ( J > : G0SUE645 
NENTJ:CLOSE10 : RETURN 
REM **ROUTINE ERRORE** 

REM ****************** 

I NPUT # 15, EN, E Mi", ET, ES 
IF E N=0 0 R E H=5 0 T H E N R E T U R N 
PRINT"«ERRORE DISCO" 
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670 
67 5 
6 80 
685 
658 
655 
788 
705 
710 
715 
720 
725 
730 
735 
740 
745 
758 
755 
760 
765 
778 
775 
77 6 

( i t 

775 

780 

785 

750 

755 

800 

805 

810 

815 

828 

825 

838 

840 

845 

850 

855 


F : 'RINTEN, EM$, ET, E3 : CLOSE15 : STOP 
REM **DATA rUSCQi** 

REM ************** 

FRI NT "L'IRTA PER DISCO" 

INPUT " GG MM, RABBIIDiinnill" ; GÌ, Mi, Ri : RETURN 
REM **SCRITT. IND. SEC.** 

REM ********************* 

F'R I NT# 15," S : I ND 12": RRI NT# 15, " I " 

OPEN10,8,10,"INDIE,S,N" 

FORJ=lTOK 

PRI NT# 10, Ci< J> CHi, TX(. J> : CHi ; 

G0SUE645:NEETJ:CLOSEIO : RETURN 
R$="":GETRi : IFRÌ-""THEN738 
RETURN 

REM INIZIALI2ZRZIONE DISCO 

REM- 

FRINT"NOME DISCO";:INPUTNÌ 
PR I NT# 15, " NO : " H-NÌ+ ", 55 " 

CLOSE15 : OPEN15,3,15:rrINT#15,"I" 

RETURN 

REM **NUOVI DATI** 

REM ************** 

OPEN11,8,11,NHi:G0SUE645 
G0SUE325 

IFW=1THEHK=K~1:CLOSE11 : GOTO1340 
G0SIJE528 : IF J J”0THENST0P : REM STOP IMPOSS. 
T=T?i< JJ) ; G0SUB455 ; GOSUB430 
REM **RGGIORNAMENTO INDICE** 

REM ************************ 
Ci<JJ>=Via>+vi<2> 

K=K+1 

IFK>NTHENK=K-1:PRINTS2Ì:CLOSE11 : GOTO1348 
GUTU775 

REM AGGIORNAMENTO 
REM- 

PR INTTAE < 10 >, " .TWWAGGI ORNAMENTO ARCHIV10 " 

PRINT :PRINTTAE (18 >;"1=CORREZIONE" 

PR I NTT AE < 10;'," 2=AGG I UNTA ELEM. " 

PRINTTAE <10 > ;"3=CANCELL.ELEM." 
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360 F'R I NTTHB < 10 > ; " 9=F I HE " 

365 I HF'UT " COSA SCEGLI X : IFX=3THEN1340 

370 IFX<1ORX>3THEN840 
IFX-2THEN107O 
IFX=3THEN1110 
GOT O370 

REM **RICERCO RECORD** 

REM ****************** 

PRI NT " ; Di C 1 ) ; : I NF'UTVi C1 > : W=0 

IFVi<1) = "i"THENW-1 : RETURN 
310 PR I NTDi C 2 > : I NF'UTVi C 2 > 

315 
320 
325 
330 

Cr-ic 

340 
345 
350 


o r -j 

880 
r iIZ 

OOJ 

a 3 0 
895 
300 
905 


Vi(1)-LEFTi< ViC1)+SPÌ,L C1>> 
Vi<2 >=LEFTÌ<Vi<2 >+SP$,L C2 >> 
INPUT"QUALE OCCORRENZA ";X 


vi < 2 > 


355 

360 

365 

370 

375 

380 


IFXOOTHENPRI NT " 1 “ ; : G0TG325 
FGRJ=1TOK : IFCi<J>=Vi(1>+ViC 2>THEN355 
NEXTJ 

■J—J~ 1 : PR I NT " NON TROVATO " ; Vi ( 1 ) J " 

GOSUB730 ; GOT0830 
IFXO1 THENX-X-1 : G0T0340 
T=TX C J 

I=J ; J=K:NEXTJ ; RETURN 
REM **C0RREZIONE** 

REM ************** 

GOSUB890^IFW-1THEN840 
385 GOSUB550 

330 REM **VA fi MODIFICO DOTI** 

935 REM ********************** 

1000 GOSUB1020 

1@05 PRINT#15,"I": OPEN11,8,11,NNÌ 
1006 G0SIJB455 : GOSUB430 
1010 CiCI)-Vi(1> +Vi(2 > 

1015 CLOSE11 : GOT0970 

1020 REM **CONTROLL0 DOTI E MODIFICHE** 

1025 REM ****************************** 

1030 FRI NT "CONTROLLO DOTI E MODIFICHE" 

1035 FORJ= 1 TONO ; F'R I NTJ ; " " ; Di < J > ; ” " ; Vi ( J ) ■ NEXTJ 

1840 input "mirro bene s/n " ; x$ ; ifxì*"S"thenreturh 

1045 PRINT"QUfiLE CAMPO CO USCITA)";=INPUTX 
1 @50 IFX=0THENRETIJRN 

1055 I FX>NCQRX< 1THENPRI NT " .TI" : GOTO 1040 
1060 I NF'IJTVi C X > ^ Vi < X ) =LEFTÌ C Vi C X > +SFÌ, L C X > > 
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1065 GOTO1030 

1070 REM RAGGIUNTA** 

1075 REM ************ 

1085 FRINT"RAGGIUNTA NUOVI RECORD" 

1050 FRINT"PRESENTI "jK;" RECORD" 

1G55 FRI NT "PUOI AGGIUNGERE n .iN-K;" RECORD" 
1100 GOSUB730 


1105 W=0:K=K+1 : GOTO775 
1110 REM **CANCELLAZIOHE** 

1115 REM ***************** 

1120 M=0 

1125 GOSUB850: IFW=1THEN1140 
1130 X=L < 1 ) +L C 2 ) : C$ C I > =LEFT$ ( LI M$+SP$+SP$ 


1135 M=M+1 •' GOTO 1125 


1140 REM SIST. INDICE 

1145 GOSUB1385 :K=K-M: GOTO1365 

1150 REM- 

1155 REM LISTA FILE 


1160 REM- 

1165 T$="LISTA PER INDICE PRIM." 

1170 FRINT"ACCENDI STAMPANTE FREMI UN 
1175 GETR$: IFR$=""THEN1175 
1180 PRINT , LT;T$:0PEN4,4 
1185 PRINT#4 :FRINT#4:PRINT#4,T$ 


1150 FORJ=1TO10 : PRINT#4:NENTJ 
1155 L=2 = FOR I = 1TOK : T=T^ CI): GOSUB550 
1200 PRINT#4,V$C1);" "; W $<2 > 

1205 PR I NT#4, V$ C 3 ) ; " " ; V$ < 4 ) ; " " 


V$C5) 


1218 F0RM=6T0NC: PR I NT#4 ,D$ < M); Y*< M) : NEXTM 


1215 PRINT#4 : PRINT#4 
1220 IFL=5THENPRINT#4:L=0 
1225 L=L+1 : NEXTI 
1230 CL0SE4 : GOT01370 
1235 REM- 


1240 REM CREAZIONE INDICE SECONDARIO 


TASTO" 


1245 REM- 

1250 PRINT"VINDICE SECONDARIO" 

1255•INPUT"WQUALE CAMPO "; X$ 

1260 N=VALCX$): IFX<20RX>NCTHENG0T01255 
1265 FOR I = 1 TOK : T=T* CI ) '■ GOSUB550 
1270 C$(.l)=V$0O : NEXTI 
12 75 G0SUB655 : G03UE615 
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1280 PRINT"FINITO IND. SEC." 

1285 GOTO1370 

1230 REM- 

1295 REM LISTA PER INDICE SECONDARIO 

1300 REM--- 

1305 FRINT "□LI STA IND. SEC." 

1310 OPEN10,8,10 > "IND12,S, R"•GQSUB645 
1315 FORJ= 1TOK : INPUT# 10, C*<.J >, TX < .J ) 
1320 G0SUB645=NEXTJ 
1325 CLOSE10 : GOSUE1450 : G0SUB635 
1330 T$="LISTA IND. SEC. " 

1335 GOTO1170 

1340 REM ##CHIUSURA## 

1345 REM ############ 

1350 PRINT"CHIUSURA ARCHIVIO" 

1355 PRINT" USI ORDINA INDICE IND II" 

1356 PRINT" ATTENDI CON PAZIENZA" 

1360 GOSUE1385 

1365 G 0 SIJ E330 : G 0 S U B 4 8 5 

1370 PRINT"FINITO AGGIORNAMENTO" 

1375 PRINT"SONO PRESENTI ",K:" RECORD" 
1380 CLOSE 15 : STOF‘ 

1385 REM *#ORDINAMENTO CRESCENTE## 

1390 REM ######################### 

1395 L-N-l 
1400 W=0 
1405 FORJ=lTOL 

1410 IFCTCJ)<=C$<J+1)THEN1430 
1415 R$=C$< J >:C$<J>=C$(J+1 > ■ C$ <J+1> -R$ 
1420 X-TX <J): TX (J> -TX <J+1>: TX <J+1>=X 
1425 W-l 
1430 NEXTJ 

1435 IFW=0THENRETURN 

1440 IFL=1THENRETURN 

1445 L=L-1=GOTO1400 

1450 REM ##ORDINAMENTO DECRESCENTE## 

1455 REM ##########*################ 

1460 L=K-1 

1465 N-0 

1470 FOR-J=lTOL 

1475 IFC$<J)>=C$ <J+1)THEN1495 
1480 RT~C$ ( J ) ; CT ( J ) =C$ ( J+1 ■ C$ J +1 > =R$ 




1485 

>:=TX 


1430 

W=1 


1435 

HEXT 

..T 

1500 

IFU= 

0THEHRETURN 

1505 

IFL= 

1THENRETURM 

1510 

L=L- 

1 : GOTO1465 


Non riteniamo di dover descrivere in dettaglio anche questo programma, ma ci 
limitiamo a segnalare i blocchi significativi per il tipo di file relativo. 

SCRITTURA RECORD PUNTATO 
linee 430-450 

Viene eseguito dopo il blocco: DEFINISCE POSIZIONE RECORD (linee 455- 
480), che prepara il puntatore all’inizio di un determinato record. Come vedi 
prepariamo una stringa C$, che contiene la somma di tutte le stringhe e i caratteri 
separatori necessari per riempire il record. L’istruzione PRINT# 11 ,C$, scrive tutto 
il record logico. 

INIZIO EX-NOVO ARCHIVIO 
linee 210-320 

Dopo aver formattato il dischetto, viene preesteso il file, generato il primo file 
indice INDI1 e generato il primo file DATIGEN. 

Ti segnaliamo l’uso dello switch S WW per evitare il ridimensionamento dei vettori, 
linee 260 e 192. 

RICERCA POSTO NELL’INDICE 
linee 520-540 

Serve per trovare il numero del record per un nuovo record da aggiungere. 

Pensiamo che, per una completa comprensione delle operazioni possibili con i file 
su disco, sia molto utile studiare i quattro programmi di archivio presentati. Essi, 
ovviamente, potrebbero essere migliorati sotto diversi aspetti. Il più evidente è il 
possibile e facile miglioramento dei quadri video, facendo ricorso anche al colore; 
noi non ce ne siamo occupati, dato che il nostro argomento principale è di spiegare 
come si gestiscono i file. Lasciamo a te la cura e la soddisfazione di proseguire e 
migliorare il nostro lavoro. Vedi quanto detto in proposito nel primo volume. 

Noi abbiamo provato il programa ARCHIRELATIVO generando il file ARCHI- 
REL di 500 record logici. Riportiamo la directory del dischetto usato. 
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0 

ti 99 yf\m 

505 "RRCHIREL" 

REL 

20 " IND II" 

SEQ 

1 "DRTIGEH" 

SEQ 

138 BLOCKS FREE. 



Come puoi vedere, il file relativo occupa 505 settori, 500 per i record logici e 5 peri 
side sector necessari. Il file sequenziale DATIGEN occupa un solo settore. Il file 
INDI 1 occupa solo 20 settori, infatti nella fase di impostazione le chiavi DUMM Y 
sono solo di 3 caratteri; man mano che si aggiungono i record, le dimensioni di 
INDI 1 crescono, ma non si arriverà mai ai 90 settori usati per l’esempio dell’archi¬ 
vio RANDOM, dato che in questo caso il record del file indice ha un campomeno. 


3.14 Messaggi di errore del DOS 

L’indicatore luminoso a luce rossa, posto sull’unità 1541, si accende quando è in 
corso una operazione di lettura o scrittura da o sul dischetto. Quando si verifica un 
errore, l’indicatore pulsa velocemente. Come abbiamo visto più volte, la routine di 
errore, richiedendo il contenuto di 4 variabili sul canale 15 può rilevare se si è 
verificato un errore, e, nello stesso tempo resetta (spegne) l’indicatore. 

Le 4 variabili, che possono essere tutte di tipo stringa, ma, salvo la seconda, anche 
di tipo numerico, e che noi abitualmente chiamiamo EN,EM$,ET,ES, contengono: 
EN, il numero dell’errore o del messaggio di avvertimento, 

EM$, il messaggio, se esiste, 

ET, la traccia coinvolta, 

ES, il settore coinvolto. 

Il messaggio di codice 0, significa che è andato tutto bene, mentre quello di codice 1, 
segnala il numero di file cancellati in una operazione di SCRATCH. 

Riportiamo l’elenco degli altri messaggi. 


20 READ ERROR 

Il controller del disco non riesce a trovare la testata (header) del settore richiesto; o 
l’indirizzo passato non è valido, o il dischetto è rovinato. 
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21 READ ERROR 

Il controller del disco non trova il carattere di sincronizzazione sulla traccia 
richiesta. Può essere allineata male la testina di lettura/scrittura, mancare, essere 
inserito male o non essere formattato il dischetto. Può trattarsi di un guasto 
hardware. 

22 READ ERROR 

E stata richiesta una operazione di tipo BLOCK, ma non può essere eseguita, o 
perchè il blocco è danneggiato o perchè l’indirizzo non è valido. 

23 READ ERROR 

Dopo la lettura di un blocco il controllo di CHECKSUM dà errore. Può dipendere 
da una difettosa messa a terra. 

24 READ ERROR 

Viene provocato un errore hardware a causa di una cattiva ricezione dei dati o di 
una testata. Può dipendere da una difettosa messa a terra. 

25 WR1TE ERROR 

I dati registrati e i dati in memoria non coincidono. 

26 WRITE PROTECT ON 

Si tenta di scrivere su un dischetto protetto, con la finestra chiusa. 

27 READ ERROR 

II controller del disco ha trovato un errore nella lettura di una testata e non ha letto 
il blocco. Può dipendere da una difettosa messa a terra. 

28 WRITE ERROR 

Il controllore cerca, dopo aver scritto un blocco, il carattere di sincronizzazione del 
blocco seguente e non lo trova entro il tempo prefissato. Il dischetto può essere 
rovinato o formattato male, o si è verificato un guasto hardware. 

29 DISK ID MISMATCH 

Indica il tentativo di accedere a un dischetto che non è stato inizializzato o che è 
rovinato. 

30 SYNTAX ERROR 

Il DOS non riesce a interpretare un comando ricevuto; probabilmente sono errati 
alcuni parametri o ne mancano. 

31 SYNTAX ERROR 

Il DOS non riconosce un comando; può dipendere da uno spazio prima del 
comando. 
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32 SYNTAX ERROR 

Il comando inviato supera la massima lunghezza consentita. 

33 SYNTAX ERROR 

Il nome usato in OPEN o SAVE non è valido. 

34 SYNTAX ERROR 

Il DOS non riconosce il nome del file; per esempio, mancano i due punti dopo il 
numero dell’unità. 

39 SYNTAX ERROR 

Il comando inviato sul canale 15 non viene riconosciuto. 

50 RECORD NOT PRESENT 

51 tenta di leggere da un file dopo aver raggiunto la fine del file. Nel caso dei file 
relativi può essere ignorato se si sta estendendo il file. 

51 OVERFLOW IN RECORD 

51 tenta di scrivere in un blocco più caratteri di quelli possibili. Per esempio, non si è 
tenuto conto dei caratteri separatori tra i campi. 

52 FILE TOO LARGE 

Si scrivono record su un file relativo producendo overflow. 

60 WRITE FILE OPEN 

Si apre in lettura un file che è stato scritto e non chiuso. 

61 FILE NOT OPEN 

Si tenta un’operazione su un file che non è stato aperto. In alcuni casi può non 
comparire il messaggio, però l’operazione non viene eseguita. 

62 FILE NOT FOUND 
Il file richiesto non esiste. 

63 FILE EXISTS 

Si cerca di creare un file che esiste già e non si è usato il carattere prima del 
nome. 

64 FILE TYPE MISMATCH 

Il tipo di operazione si riferisce a un file di tipo diverso da quello registrato. 

65 NO BLOCK 

Indica che il blocco richiesto con B-A è già occupato, ma fornisce in ET e ES il 
numero di traccia e settore del primo bblocco disponibile. Se ET e ES sono nulli. 
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significa che il dischetto è pieno. 

66 ILLEGAL TRACK AND SECTOR 

Il DOS tenta di accedere a settori che non esistono. 

67 ILLEGAL SYSTEM T OR S 

Indica una traccia e un settore illegali per il sistema. 

70 NO CHANNEL 

Indica che il canale richiesto è già occupato o che non ci sono canali liberi. 

71 DIRECTORY ERROR 

Indica che i controlli sul dischetto non permettono di creare una BAM valida. 
Probabilmente si deve perdere il contenuto e riformattare il dischetto. 

72 DISK FULL 

Indica o che il disco è pieno, o che non ci sono più entrate libere nella directory. 

73 DOS MISM ATCH (73, CBM DOS V2.6 1541 ) Le versioni 1 e 2 del DOS creano 
dischetti compatibili in lettura, ma non in scrittura. Si cerca di scrivere su un 
dischetto formattato con l’altra versione. 

74 DRIVE NOT READY 

Si tenta di lavorare sull’unità spenta. 

Non tutti i messaggi di errore vengono segnalati spontaneamente dal sistema. Per 
questo ti raccomandiamo di usare sempre la routine di errore nei tuoi programmi. 


3.15 Programmi di utilità 


I programmi di utilità sono di aiuto durante il lavoro di programmazione. Nella 
scatola dell’unità 1541 è contenuto un dischetto TEST/DEMO che contiene alcuni 
programmi di utilità e alcuni programmi esempio. Riportiamo la directory del 
TEST/DEMO. 


0 UiKCftl&ìKMJsliMI 


13 

"HOW TO USE" 

PEG 

cr 

"HOW PflRT TUO" 

PPG 

4 

"VIC-20 WEDGE" 

PRG 

i 

11 C-64 WEDGE" 

PPG 

4 

"DOS 5.1" 

PPG 


150 





11 

11 COPY/ALL" 

PRO 

3 

"PRINTER TEST" 

PRO 

4 

"DISK ADDR CHANGE" 

PRO 

4 

"DIR" 

PRO 

6 

"VIEW BAH" 

PRO 

4 

"CHECK DISK" 

F'RG 

14 

"DISPLAY T'&S" 

PRG 

3 

"PERFORMANCE TEST" 

F’RG 

5 

"SEGUENTIAL FILE" 

PRG 

13 

"RANDOM FIAL" 

PRG 

558 

BLOCKS FREE. 



I primi due programmi: HOWTO USEeHOW PARTTWO, mostrano sul video le 
spiegazioni relative agli altri programmi del dischetto. Puoi caricare il primo, dare 
RUN e seguire le istruzioni che compaiono sul video. Al termine del primo viene 
caricato automaticamente il secondo. 

II programma C-64 WEDGE serve per caricare il DOS 5.1, se non è già stato 
caricato prima. Dopo aver dato RUN, vedi comparire READY, e sono attivi i 
seguenti nuovi comandi: 

/nome-programma, per caricare un programma da dischetto; 

> oppure @, per mostrare lo stato delle 4 variabili di errore; 

> $ oppure @$, per vedere la directory sul video, SENZA AZZERARE IL 
PROGRAMMA PRESENTE IN MEMORIA. 

Il programma resta attivo fino a quando togli corrente al calcolatore. 

Il programma COPY/ALL consente di fare la copia dei dischetti usando due unità 
1541 collegate al calcolatore, una con numero 8 e l’altra con numero 9. Per poter 
cambiare a una delle unità il numero da 8 a 9, puoi usare il programma DISK 
ADDR CHANGE, seguendo le istruzioni che compaiono sul video. Ricorda che il 
cambio del numero dell’unità resta valido fino a quando togli corrente. Per ottenere 
una unità che risponda sempre al numero 9, si deve modificare via hardware il 
numero, operando all’interno. 

Ti consigliamo, se usi COPY/ALL, o altro programma di copia (ne esistono in 
commercio, che lavorano con una sola unità collegata), di proteggere la finestra del 
disco sorgente per lavorare senza pericoli. Usando due unità per copiare dischetti, 
l’operazione risulta più veloce. Con una sola unità, si devono alternare i dischetti 
alcune volte, fino al compimento dell’operazione. 
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Il programma PRINTER TEST consente di provare le caratteristiche della stam¬ 
pante; ti conviene usarlo, almeno una volta, per renderti conto di quali possibilità di 
stampa disponi. 

Il programma DIR è abbastanza interessante anche per le tecniche di programma¬ 
zione usate. Puoi listarlo sulla stampante o sul video e seguire il listato leggendo il 
nostro commento. 

Viene mostrato il MENU’: 


D-DIRECTORY 
>-DISK COMMAND 
Q-QUIT PROGRAM 
S-DISK STATUS 


per la scelta. Q fa uscire dal programma. 

Il canale comandi viene aperto con lfn=2 all’inizio. Scegliendo D, il programma va 
alla linea 10 e apre la DIRECTORY come file “$0”, sul canale 0, con lfn=l. Poi con 
GET#I, viene letta e stampata la directory carattere per carattere. Questo è un 
modo diverso dall’abituale per ottenere la stampa della directory. 

Rispondendo S, viene letto, in modo diverso dal solito, lo stato delle 4 variabili 
d’errore. Vengono eseguite sul canale comandi, lfn=2, delle GET#2, fino ad 
incontrare RETURN, e si stampano i caratteri. Trovi questo alle linee 5000-5020. 
Rispondendo >, il programma lo stampa come PROMPT e si mette in attesa di una 
stringa comando DOS; quando premi RETURN, viene eseguito il tuo comando 
con la PRINT#2 della linea 4020. 

Il programma VIEW BAM mostra sul video la BAM del dischetto, dapprima le 
tracce da I a 17 e poi le tracce da 18 a 35. La BAM viene vista come una matrice, 
sull'asse orizzontale sono riportate le tracce e sull’asse verticale i settori. Le 
posizioni scure della matrice indicano i blocchi occupati. Il programma presenta 
una imperfezione, per le tracce da 18 a 24 sono mostrati, senza l’annullamento N/L, 
ma come occupati, anche i settori numero 19, che non sono disponibili. 

Il programma CHECK DISK consente di controllare se un dischetto ha settori 
rovinati, dove non.si riesce a scrivere. All’inizio il programma esegue la VALIDA- 
TE, quindi cancella i settori non registrati nella directory. Dopo il programma 
scrive nei settori liberi, usando le funzioni dirette del DOS, e alloca i settori dove 
scrive; tali settori non sono però registrati nella directory. Se non riesce a scrivere in 
un settore, ne annota l’indirizzo in una doppia tabella di 100 elementi. Alla fine 
segnala gli indirizzi dei settori guasti. In realtà il dischetto alla fine risulta tutto 
occupato nella BAM, settori buoni e non buoni, senza corrispondenza con la 
directory. Per poter usare il dischetto si deve rifare la VALIDATE e andare ad 
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occupare stabilmente, sia nella BAM che nella Directory, i settori guasti. Per 
occupare la BAM basta usare il comando B-A, per occcupare la directory si può 
andare a scriverci dentro direttamente, usando il comando B-P e U2. Il programma 
risulta molto lento, e questo dipende da come vengono ricercati i settori liberi su cui 
andare a scrivere. 

Il programma DISPLAY T&S è molto utile per controllare cosa succede sul disco. 
Noi, come hai potuto vedere leggendo questo capitolo, lo usiamo molto. Esso 
consente di visualizzare, o sul video o sulla stampante, il contenuto di un settore 
carattere per carattere. La visualizzazione avviene in due modi, con i codici 
esadecimali dei caratteri e con i caratteri di stampa. La parte in codice esadecimale, 
operando la conversione decimale, fornisce i codici ASCII abituali, la parte in 
caratteri di stampa risulta poco chiara, dato che alcuni codici non danno luogo a 
caratteri stampabili. II programma in certi casi va in crisi. Basta premere RUN- 
/3TOP e RESTORE e poi RUN per ripartire. 

Il programma PERFORMANCE TEST serve per provare il buon funzionamento 
del dischetto. 

Gli ultimi due programmi: SEQUENTIAL FILE e RANDOM FIAL, sono due 
esempi di creazione e gestione di file sequenziale e random. 

Noi abbiamo preparato qualche altro programma di utilità che riportiamo qui. 

Il programma DCOMEFS, stampa la directory, leggendola come file sequenziale, 
carattere per carattere. La stampa viene predisposta per evidenziare i contenuti 
della directory. La prima parte della stampa mostra i 35 gruppi (uno per ogni 
traccia) di 4 byte dedicati alla BAM; il primo byte di ogni quartina segnala il totale 
dei blocchi liberi nella traccia, gli altri sono usati in sequenza per il primo gruppo di 
8 settori, per il secondo gruppo di 8 settori e per i settori restanti. Nella seconda 
parte della stampa sono evidenziate le altre informazioni; per i file nell’ordine: 
tipo file, indirizzo primo blocco file, nome file, tre byte significativi per i file REL 
(indirizzo del primo blocco side sector e lunghezza record), sono saltati 4 byte non 
usati, traccia e settore sostitutivi per uso di OPEN@, numero dei blocchi del file in 2 
byte. 


5 REM DCOMEFS 

10 1 $ <9> = "DEL":T$<1>-"SEQ" : T$< 2 > = "PRO" 

15 T$<3> = "USR":T$<4 > = "REL" 

20 CLOSE15 : OPEN 3.5, 8, 15 .■ " 1 11 

2 Fi 0P-H2 .■ 8, 2.' ; REM APERTURA FI LE DI REGI DRY 

30 0PEH4,4 '■ REM APERTURA STAMPANTE 

35 PRINT#4,"STAMPA DIRECTORY COME FILE SEQUENZIALE" 
40 PRINT#4 
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45 REM LETTURA PRIMI 2 EVIE 

50 I=2 : GOSUB230 

55 REM LETTURA EAM 

60 FORK-1 TU 35 :PRIHT#4,K;" "J 

65 I =4 ■GU8UB2S0 

70 HEXTK : PRINT#4 

75 REM LETTURA NOME DISCO 

8 0 1 = 18 :G03UB205 

85 PRINT#4,N$J" 

90 REM LETTURA ID 

95 I=2^ GOSUB205 :PRINT#4,N$ 

100 REM LETTURA ALTRI 7 BYTE 
105 1=7:GO3UB230 
110 PRINT#4 

115 REM LETTURA ALTRI 85 BYTE 

120 FORK-1T085 : GET#2, f\$ ■ NEXTK 

125 PRINT#4 

130 F0RJ=1T08 

135 GET#2,T$,A$,B$ 

140 IFSTTHENCL0SE2: GLOSE4 :CLOSE15■STOP 
145 IFT$=""THENT$=CHR$<128) 

150 1=16 
155 GOSUB205 

160 PRINT#4,T$CASC < T$>-128>;" " ; 

165 PRINT#4,ASCCA$+CHR$C0 >); ASC(B$+CHR$C0 > >; 

170 PRINT#4,N* 

175 1=3 : GOSUB230 

180 FORK=1T04:GET#2,0$:NEXTK 

185 1=2 : GOSUB230 

190 I=2 : GOSUB230 

195 IFJC8THENGET#2 .■ A$, A$ 

200 NEXTJ : GOTO 130 

205 REM COSTRUZIONE STRINGA 

210 N$="" : F0RL=1T0I 

215 GET#2,L$ 

220 I FL$OCHR$ < 96 ) THENI FL$OCHR$ ( 166 ) THENN*=N*+L$ 
225 NEXTL : RETURN 

230 REM LETTURA E STAMPA GRUPPO BYTE 
235 FQRL=1TGI 

240 GET#2,A$:PRINT#4,ASC <A$+CHR$<0 >>; 

245 NEXTL=PRINT#4 
250 RETURN 
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Non riportiamo i risultati che puoi ottenere tu. Se vuoi, puoi modificare la linea 30 
per trasferire i risultati sul video, così: OPEN4,3. Seguendo le indicazioni sulla 
struttura della directory, puoi costruire un programma che ti permetta anche di 
modificarla, andando a scriverci dentro in modo diretto, con i comandi del DOS. 

Segue il programma CONTRD1SCO; esso controlla che i file di tipo SEQ e di tipo 
PRG siano registrati bene andando a confrontare la somma dei blocchi concatenati 
con il numero totale dei blocchi riportato nella directory. Salta nel controllo i file di 
altro tipo. Ogni volta che controlla un blocco, fa apparire un pallino sul video. 
Qualora per un file controllato vengano riscontrate irregolarità, il programma 
chiede se si vuole cancellarlo. Se la risposta è S, il file viene cancellato e viene 
eseguita la VALIDATE del dischetto; se la risposta è N il programma si ferma, 
dopo aver chiuso tutti i file. 


5 REM CONTRDISCO 

IO REM —COSTANTI E ViiRIABILI — 

15 MI$= "" : FI =0 
20 M2$="SFILE NON CORRETTO: SI" 

25 M3$="SrTUTT0 IN ORDINE ... SI SPERO !' 
30 REM —APRE CANALE 15 CON LFN=1— 

35 OPEN1,8,15,"I" 

40 REM —APRE CANALE 2 PER DIRECTORY— 
45 0PEN2,8,2, 

50 REM —APRE CANALE 3 PER FILE— 

55 0PEN3,8,3, 


60 REM — FIJHZ. PER PUNTARE ENTRATE DIRECTORY— 

65 BEFFNF < K > =2+32#X 

70 REM —PRIMO BLOCCO DIRECTORY— 

75 TD=18 :SD=1 :GOSUB350 

80 REM —ELABORA UNA ENTRATA— 

85 FI$-"" : CB-0 

80 REM —PUNTATORE A INIZIO ENTRATA— 

85 PRINT#1,"B-P: 2,"FNF<FI) 

100 REM —LEGGE TIPO FILE CHE VA IN TV— 

105 GET#2,A$:G0SUB385:TY*ASC< A$ > 

110 REM —LEGGE IND. INIZIO FILE, TR E SC— 

115 GET#2,A$,B$:GOSUB380 : TR=ASC(A$):SC=ASC< ET> 
120 REM —LEGGE NOME FILE— 

125 FORI = 1TO16 : GET#2, A$ : FI $=F IT+AT- 
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IFA$=CHR$ <160>THENFI$=LEFT$ CFI $ ,I - 1): I = 16 
NEXT 

REM —PUNTATORE RI 2 BYTE CONT. BLOCCHI — 
PR IMTttl, " B-P : 2, " FNF C FI > +28 : GET#2, A$, B% 

REM —NB=VCOMTRTORE BLOCCHI — 

GOSUE380 : NB=flSC(R$ >+RSC< B$ )*256 
REM —CONTROLLO TIPO FILE 1 0 2— 

IFT YO0THENTY=T V-128 
IFT Y02RNDT YO1THEN310 
IFTY02ANBTV01THENS5 
REM —CONTROLLO BLOCCHI FILE¬ 
PRI NT "□WWM"M1$ 

PRINT"CONTROLLO FILETARINTM1$" Wttifl" 

PR INTT RE (. 10 > FI $ " J®fl" 

REM —LEGGE BLOCCO FI LE¬ 
PRI NT# 1, "B-R : 3,0, "TR,SC 
REM —LEGGE BYTE CONCATENAMENTO— 

PRINTttl,"B-P ; 3,0" 

CB=CB+1:GET#3,fi$,B$ : GOSUB380 
REM —STAMPA UN PALLINO PER OGNI BLOCCO— 
TR®ASC<A $)■ SC®ASC< B$)■ PRINT"•"; 
IFTRO0THEN205 

REM —CONTROLLO LUNGHEZZA FILE— 

IFCB=NBTHEN325 

REM —CICLO DI ATTESA— 

IFCB=NBTHENFORI = 1TO250 : NENTI :G0T085 
PRINT : PRINTM2$FI $ 

REM —SE CONTEGGIO ERRATO— 

PR INTRIDEVO AZZERARE ? ( 3SS-'' SHH) " 

GETAt:IFR$=""THEN275 

IFA$="N"THEN400 

IFA$0"S"THEN275 

PRI NT "AZZERAMENTO E VAL IURTE" 

PRINT#1,"S:"FI$ :PRINT#1,"V" 

CL0SE3:CL0SE2:CLOSE1:RUN 

REM —PASSA A PROSSIMA ENTRATA— 

FI =F I +1 = IFFI ®8THENGOSUB350 •’ FI -0 
GOTO175 

REM —TUTTO BENE— 

PR I NT : PR I NTT AB < 3 > " KKMdOK " : FI ®F I +1 
IFFI®8THENGOSUB350 : FI=0 
G0T0255 
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340 REM —RE LETTURA DIRECTORY— 

345 REM —TD=0 A FINE DIRECTORY— 
350 IFTD=0THENPRINTM3$:GOTO40O 
355 REM —LETTURA BLOCCO— 

360 A$="":B$="": FRINT#1,"U1: 2,0";TD 
365 GET#2,A$,B$:GOSUB380 
370 TD=ASC< A$):SD=ASC(B$): RETURN 
375 REM —SISTEMAZIONE BYTE LETTI — 
380 IFB$=""THENBf=CHR$ <0 > 

385 IFA$=""THENA$=CHRS < 0) 

390 RETURN 

395 REM —CHIUSURA FILE— 

400 CL0SE3 : CL0SE2 : CLOSE1 •' STOP 


>D 


Il programma legge la directory e i file in modo diretto, usando gli indirizzi di 
traccia e settore. Abbiamo abbondato in REM, quindi non aggiungiamo commen¬ 
to. Ti suggeriamo di estendere il programma per fargli controllare anche i file di 
altro tipo, tenendo conto che: 

# per poter controllare i file RANDOM, è necessario che essi siano registrati 
come USR nel modo da noi suggerito nel Paragrafo 3.11; 

• per i file RELATIVI il controllo è semplice per quanto riguarda i blocchi del 
file principale, ma si deve andare a prelevare dall’entrata della directory anche 
l’indirizzo del primo blocco side sector e procedere con il controllo anche per questa 
parte. 

Il programma TRAC/SET , che segue, è ricavato dal DISPLAY T&S del TEST- 
/DEMO, apportando alcune modifiche. Con esso si possono stampare gruppi di 
settori concatenati sui primi due byte o settori singoli. 


5 REM TRAC/SET 

10 RC$=" SNBIDEQ 'IBIflIHHHlJ MH3FHRINTER" 

15 RB$=" SUSY IDEO ■" 

20 RE$=" M SPRINTER!" 

25 PRINT'LTM»-" 

30 FRINT" CONTENUTO BLOCCHI 

35 FRI NT"-" 

40 REM COSTANTI 
45 SP$=" " ; NL$=CHR$<:0> 

50 HX$== " 0123456789ABCDEF " 
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55 FS$=”" : FORI=64 TO 95 
60 FS$=FS$+ " S" +CHR$ < I > + " 9" : hi EXT I 
65 88$=" "•FOR 1=192 TO 223 

70 SS$=SS$ + 11 fl" +CHR$ ( I + " 9" : HEXT I 
75 DIM fl$<15>;NB<2> 

80 D$="0" 

85 F'RINTRCT 

90 GETJJ$ : IF J.J$="" THEM9Q 
95 IF JJ$= THEHPRIHTRD# 

100 IF ,TJT= " P 11 THENPRIHTRE$ : 0PEH4, 4 

110 GOSUE450 

115 REM CARICA BUFFER 

120 IHF'IJT " MMfTR ACCIfì, SETTORE" ; T, S 

125 IF T=0 OR T>35 THEN355 

ISO IF JJ*="V" THEHGOSUB360:GOTO135 

131 PRINT#4:PRIHT#4,"TRRCCIR"T" SETTORE"3 :PRIMT#4 

135 PR I NT# 15, " U1 :2, " D* ; T ; S ■' G0SUB335 

140 PRINT#15, "B-P : 2.- 0" 

145 REM LEGGE BYTE 0 

150 GET#2,R$(0>: IFR$<0> = ""THENAf<0> =HL$ 

155 PRINT#15,"B-P=2,1" 

160 IF JJ$="V"TRENI70 
165 IF J.T$--"p"THEN230 
170 REM VIDEO 
175 K= 1 : MB 1 ) =RSC < A$ < 0 > > 

180 FORJ=0TO63 ; I FJ=32THENG0SUB375 •' G0T0365 
185 FOR I=K TO 3 

198 GET#2, m (. ! :> ■■ i F A* < I ) = " " THEH A$ (. I > =HL$ 

195 IF K=1 AND I<2 THEH NBC2)=RSCCR$<I>> 

200 HEXT I :K=0 

205 R$=" " : E$=" : " ^ M=J*4 ^ GOSIJB 405 : A$=A$+" : " 

218 F 0 R 1=0 T 0 3 : M=R S C C R $ < I > ) : G 0 SIJ B 4 0 5 
215 C$=fi$ (. I > : GOSUB 425 : B$=B$+C$ 

220 HEXT I :IF J J$="V" THEH PRIHTATB* 

225 HEXT J:GO10295 

230 REM PRIHTER 

235 K= 1 : HE ( 1 > =RSC ( tì$ (. 0 > > 

240 FOR J -• 0 TO 15 
245 FOR I=K TO 15 

250 GET#2, R$ ( I > • IF fì$< I > = 11 " THEH R$ ( I > =HL$ 

255 IF l<= 1 AMD I<2 THEH HB<2>=RSCCA4:< I > > 

260 HEXT I :K=0 
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265 fi*=" " : B*=" : " : N=J#16 : GOSUB 405 : fi*=fi*+" : " 

270 FOR I=0 IO 15 :N-RSC<fi*CI)> : GOSUB 405 
275 C*=fi*< I ;> : GOSUB 425 : B$=E$+C$ 

280 NE NT I 

285 IF JJ$="P" IHEH FRINT#4,fi*B* 

290 NEKT J : G0T0295 

295 REM SUCCESSIVO BLOCCO 

300 PRI NT 11 TRfìCCIfi/SETT. SEGUENTE "HE < 1 ) HE C2> " SI" 

305 PRIHT"DESIBERI PROSEGUIRE S/N 

310 GET Z* '■ IF Z*="" THEN31G 
315 IF Z*0"S" THEH325 

320 T=NB<1>:S~HB(2 >:GQSUB445 : G0SUE450: GOTO125 
325 IF Z*="N" THEH G0SUB445 : G0SUB450 : GOTO120 
830 GOTO 310 
335 REM ROUTINE ERRORE 

340 I HF’IJT# 15, EH, EM*, ET, ES ■’ IF EH=@ THEH RETURN 
345 PRINT"SERRORE DISCO»"EH,EM*,ET,ES 
350 END 

355 PRINT#15,"I"D* : G0SUB445:CL0SE4:PRINT"END" END 
360 PRINT"MPWTRRCCIfi"T" SETTORE"S"W": RETURN 
365 IF Z$="N"THEN J=80 : GOTO 225 
370 GOTO185 

375 REM MESS. CONTINUAZIONE 
380 PR I NT " ;n»ÌÌÌ»:ONT INUO ( S/N > " 

385 GETZT : IF Z$~"" THEN 385 

390 IF Z* : ="N" THEN RETURN 

395 IF 2*0"S" THEN 385 

400 PRINT'TJTRfiCCIfi" T " SETTORE "S : RETURN 

4@5 REM COHV.HEN 

410 fi 1 INI N/16; 1 : fi*=fi*+M ID* HN* .■ Fi 1 +1 .> 1 ) 

415 Fi2“ I N T ( N~ 16*H 1 > : fi*=fi*+M ID* < HX*, H2+1, 1 > 

420 fì*=fi*+SP*•RETURN 
425 REMCONV.fiSCII 

430 IF fìSC , :;C*)C32 THEN CSW' " • RETURN 

435 IF ASC(C*K 128 OR FlSC(C*)>153 THEH RETURN 

440 C*-MID*<SS*, 3* <ASC<C*>-127) , 3 >: RETURN 

445 CL0SE2 : CLOSE15 : RETURN 

450 OPEN15,8,15,"I"+D* : G0SUB335 

455 0PEN2,8,2,"#"=G0SUB335 : RETURN 
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Il programma SIST/DISCO è una modifica sostanziale di CHECK DISK; esso 
lascia il dischetto in grado di essere usato e con allocati, solo nella BAM, i settori 
guasti. Su un dischetto in queste condizioni non può essere eseguita la funzione 
VALIDATE. 


5 REM 3IST/DISC0 

10 REM TABELLA TRACCE E SETTORI GUASTI 
15 DIMT<100): DIMS(100) 

28 DIMG1<21>,G2<ISO ,G3<13),G4<17) 

25 DATA0,10,20,3,18,6,16,4,14,2,12,3,13 

30 DATA?,17,5,15,3,13,1,11 

35 DAT A0, 11, 1, 12,2, 18,3, 14,4, 15,5, 16,6, Ir' 

40 DATA?,13,8,3,10 

45 DATA0,10,1,11,2,12,8,18,4,14,5,15 

50 DATA6,16,7,17,3,3 

55 DATA©,10,1,11,2,12,3,13,4,14,5 

60 DATA15,6,16,7,8,3 

65 FORJ= 1T021 : READG1 < J > '• NE/TJ 

70 FOR J= 1TO13 : READG2 < J > : NEXTJ 

75 FORJ=1TO18 = READG3<J):NEXTJ 

80 FOR J=1T017 : READG4<J):NEXTJ 

85 RC$=" BLOCCHI GUASTI SONO STATI ALLOCATI" 

30 RD$="MiflBLOCCHI GUASTI":RE*="TRACCIA" 

35 RF$="SETTORE" 

100 PRINT"3BWW-" 

105 FRINT" SIST/DISCO 

110 FRI NT"-" 

115 OPEN15,8,15 
120 PRINT#15,"V0" 

125 NZ=RNIKTI>*255 

130 A$="" ; F0RI=1T0255 

135 A$=A$+CHR$<255AND(I+NX)):NEXT 

140 OPEN2,8,2,"#":G0SUE325 

145 FRINT : PRINT#2,A$; 

150 J=1 

155 FORT-1TO17 :F0RL=1T021 
160 S=G1<L):GOSUB200:NEXTL:NEXTT 
165 FORT=18T024:F0RL=1T013 
170 S=G2< L):GOSUB200:NEXTL:NEXTT 
175 FORT=25TO30:F0RL=1T018 
180 S-G3<L >:GOSUE200:NEXTL:NEXTT 
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185 FORT=31T035 :FGRL-1TO17 
190 S~G4< L >:OOSUB20O:HEXTL : NEKTT 
135 GOTO260 

200 F'RINT#15.' "B-R : 0"T; S 
205 I NF'UT # 15, EH, E NT, ET, ES 
210 IFEN--0THEN225 
215 IFEH=65THEHRETURN 
220 STOP 

225 PRINT#15.- "U2 : 2,8"T; S 
230 NB=NB+1 

235 I HF'UT# 15, EH, EM$, ES, ET 

240 IF EH=8THEHREIURH 

245 T(J > =T ; S(J)=3 : J~J +1 

250 PRIHT"MKUBLOCCHI GUfìSTI=";T;S 

255 RETURH 

260 PRIHT#15."V0" 

265 G0SIJB325 
270 CL0SE2 
275 IFJ=1THEH350 
280 0F'EH2,8,2, 

285 PRIHTRD$,RE$,RF$ 

235 F0RI=1T0J~1 

300 PR I HT# 15, " B-R : 0 " T < I > S < I > 

305 PRIHT, , TU;? ..SCI) 

310 HEXT 

315 PRIHT"W".; J-l;RC$ 

320 CL0SE2:CLOSE15 :EHH 

325 IHPUT#15,EH,EH#,ET,ES 

330 IF EH=0 THEH RETURH 

335 PR I HT " PMCRRORE# " EH, EH# : ET ; ES " 3" 

340 PRIHT#15,"10" 

345 RETURH 

350 PRIHT":PM?*ÌimjTTO BEHE ! " ; CL0SE15 : EHB 


La ragione che rende molto veloce questo programma sta nel modo ottimizzato di 
allocare e scrivere i diversi blocchi. Abbiamo preparato con le frasi DATA e i 
quattro vettori Gl, G2, G3 e G4 una traccia ottimizzata per l’allocazione dei 
settori. 


Segue il programma NUMBUFFER; esso serve per vedere quanti buffer possono 
essere aperti contemporaneamente in modo diretto e quali sono i loro numeri (da 0 
a 7). 
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5 REM NUMBUFFER 
10 OPEN 15,3.. 15, "I" 

15 INPUT"QUANTI BUFFER";N 


20 

A$=" " ' Ci 

\ì 

r* 

P-l 

E^ : ~" " 


••"i cr 
cL-J 

ijnngoto 

50,45, 

•0,35,30 



;J0 

0PEN2,8 

,2, "#" 

GQSUB115- 

GET#2,ET 

:GOSUB115 

•■■■» k:: - 
■Z 1 ■ J 

0PEN3 , 3 

,3, 

GOSUBi 115 ; 

GET#3, 

:GOSUB115 

40 

OPEN4,3 

,4, "#" 

GOSUB115 ; 

GET#4,C4 

: GOSUB115 

45 

0PEN5 , 3 

,5, "#" 

G0SUB115 ; 

GET#5,ET 

: GOSUB115 

50 

OPENS,8 

,6, 

GOSUB115 : 

GET #6,AT 

:GOSUB115 

r:: - cr 

. i. > 

li II N li 0 T n 1 fi fi, ,;: .i fi 

A fi. 7 fi • 6fi 



60 

IFE$="" 

T PI E NET :;: 

0HRT- ( 0 > 



65 

PRINTA3 

C(E$> -i 

IL0SE2 



70 

IFD$="" 

THENB$= 

: CHR$ ( 0 ) 



75 

PRINTAS 

C ( ly$ > : f 

; LOSE3 



80 

IFC$="" 

THENC$= 

=CHR$ ( 0 > 



85 

PRINTAS 

C ( 0$ > : c 

IL0SE4 



90 

IFB$="" 

T PIENE 

“0NR$ ( 0 > 



95 

PRINTAS 

C '• B:l : > : L 

IL OSE 5 




100 IFAT : =""THENA$=CHR*<8> 
105 PRI NT ASC < f\$ > ; CL0SE6 
110 CL0SE15 : STOF' 

115 1NPUT#15,EN,EM$,ET,ES 

120 printen;em$;et.;es 

125 RETURN 


Come puoi vedere, provando il programma, se cerchi di aprire più di 4 canali, hai la 
segnalazione NO CHANNEL. L’istruzione GET#lfn, usata subito dopo la 
OPEN.fornisce il numero del buffer assegnato. Se provi il programma dopo 
averlo caricato con LO AD trovi che, per 4 canali, vengono assegnati i buffer: 2, 1,0, 
4. Se, invece, dopo il LO AD del programma, togli corrente all’unità 1541, ottenen¬ 
do il reset della RAM, poi ridai corrente e RUN, ottiene, sempre per 4 canali, i 
numeri di buffer 3, 2, 1, 0. 

Segue il programma INDBUFFER; esso serve per vedere quali indirizzi della RAM 
dell’unità 1541 sono assegnati ai diversi buffer. 
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5 REM INDBUFFER 

18 DIMR$(8,7):FQRK-1T08 : PORI=1T07 

15 R$<K, I > = " " : MENII : NENTK 

16 M1 $=" IND. IH MEMORIA DEL BUFFER '• " 

20 OPEN?,4 :PRINT#7,"RISULTRII INDEUFFER" 
25 OPEN15,8,15,"I" 

30 INPUT"QUANTI BUFFER";H:PRINT#7 
35 PRINT#7,N;" BUFFER" : PRINT#7 
40 A$~"":B$="" ; C$="" : D$- "" ; E*="" 

45 0H H G 0 T0 7 0,65,60.. 55,50 
50 0PEN2,8,2, " # " : GOSUB270 ; GET#2, EI 
55 0PEN3,8,3,"#":GOSUB270•GET#3, D$ 

60 OPEN4, 3 ,4,"#":GOSUB270 : GET#4, C$ 

65 0PEH5,8,5, : GOSUB270 : GEI#5, B$ 

70 0PEN6,8,6,"#"^ GOSUB270 : GET#6,A$ 

75 PRIMI#?,"NUMERI DEI BUFFER : " ; 

80 ONNGOTO165,145,125,105,85 
85 IFE$=""THENE*=CHR$<0) 

90 PRIMI#?, ASC <E$>.; 

35 PRINT#15, "2; 1 

100 PRINT#2,"22222";:GOSUB270 
105 I FH*= " " TRENDI = ; CARI ( 0 > 

110 PRIMI#?,ASC<DI 
115 PRINI#15,"B“P : "3,1 


: GO 

SUB 2? 

0 

: GO 

:;-UI;i 2 < 

0 

: GO 

3UB2? 

0 

: GO 

3 UBI 2 7 

0 

; GO 

BUE 2 7 

0 


120 PRINT#3,"33333"; :GOSUB270 
125 IFC$=""THENC$=CHRI<0> 

130 PRIMI#?, ASCOSI:: 1 , 

135 PRINT#15,"B~P : "4;1 
140 PRINT#4,"44444", :GOSUB270 
145 I FBI-- " " THENB$=CHR$ ( 0 ) 

150 PRIMI#?, FISO(BDS 
155 PRINT#15,"B-P : "5; 1 
168 PRINT#5,"55555"; :GOSUB270 
165 IFA$=""THENAf=CHR$(0) 

170 PRI NT#?, ASCARI).: 

175 F : ‘R I NI# 15, "B-P- "6, 1 
18 0 P R1N1 # 6 , " 66666 "1 : U U S U B 2 7 0 
185 PRIMI#? 

190 FQRK=1T08:M=K-1 

135 FORI=1107 : L~I—1 

200 PRINT#15,"M-R"CHRI<L > CHR$tM> 

205 GET#15,RI(K,I> 
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210 HEHTI 
215 HEXTK 

220 FORK=1T08•FORI = 1 Tu7 

225 IFR$(K,I> = ""THENR$< K,I> =CHR$(U) 

230 HEXII ■' HEXTK 
235 FORK=1T08 

240 PRINT#7,M1 $;STR*((K-1>*256> 

245 PRIHT#7, "PRIMI 8 BYTE DEL BUFFER:".; 
250 FOR1=IT07 

255 PR I HT#7, R$ ( K, I > : HEXTI : PR I HT#7 
260 HEXTK 

265 FQRI<= 1T07 : CLOSEK : HEXTK : CLOSE15 : STOP 
270 IHPIJT# 15 , EH, EM$, ET, ES 
275 PRIHTEH;EM$;ET;E5 
280 RETURH 


Il programma fa le seguenti cose: 

• chiede quanti buffer si vogliono, apre il numero richiesto di file (massimo 5) 
e, per ognuno, legge con GET# il numero del buffer e lo memorizza; 

• scrive per ogni file aperto 5 caratteri di riconoscimento nel buffer a partire 
dalla posizione 1; 

• legge con M-R i primi 7 caratteri di ogni buffer (da 0 a 7), usando gli indirizzi 
iniziali: 0, 256,512, 768, 1024, 1280, 1536, 1792 (i primi 4K di RAM) e li memorizza 
nella matrice R$(8,7); 

• stampa i risultati. 

Riportiamo i risultati ottenuti con due prove; la prima si riferisce a un RUN senza 
reset dell’unità 1541, la seconda a un RUN dopo il reset. 


RISULTATI 1HDBUFFER 
4 BUFFER 

HUMERI DEI BUFFER: 2104 
INDIH MEMORIA DEL BUFFER: 0 
PRIMI 8 BYTE DEL BUFFER: 

IMB- IH MEMORIA DEL BUFFER: 256 
PRIMI 8 BYTE DEL BUFFER : A 
IHD. IH MEMORIA DEL BUFFER: 512 
PRIMI 8 BYTE DEL BUFFER :M-R 
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IND. 

IN 

MEMORIA DEL BUFFER: 

7 SS 

PRIMI 


BVTE DEL BUFFER=55555 

i 

IND. 

IN 

MEMORIA DEL BUFFER: 

1024 

PRIMI 

8 

BVTE DEL BUFFER : 44444N 

INE. 

IN 

MEMORIA DEL BUFFER: 

1280 

PRIMI 

8 

BVTE DEL BUFFER=33333 

1 

IND. 

IN 

MEMORIA DEL BUFFER: 

1536 

PRIMI 

o 

BVTE DEL BUFFER: 

WS 

IND. 

IN 

MEMORIA DEL BUFFER: 

1792 

PRIMI 

8 

BVTE DEL BUFFER = aaSKESii 


RISULTATI INDBUFFER 
4 BUFFER 


NUMERI DEI BUFFER: 3 2 1 0 

INE. IN MEMORIA DEL BUFFER: 0 
PRIMI 8 BVTE DEL BUFFER: 

INE. IN MEMORIA DEL BUFFER'- 256 
PRIMI 8 BVTE DEL BUFFER : A 

IND. IH MEMORIA DEL BUFFER: 512 
PRIMI 8 BVTE DEL BUFFER=M-R 

INE. IN MEMORIA DEL BUFFER: 768 

PRIMI 8 BVTE DEL BUFFER-66666 
INE. IN MEMORIA DEL BUFFER: 1024 
PRIMI 8 BVTE DEL BUFFER : 55555 
IND. IN MEMORIA DEL BUFFER'■ 1280 

PRIMI 8 BVTE DEL BUFFER : 44444 
IND. IN MEMORIA DEL BUFFER: 1536 
PRIMI 8 BVTE DEL BUFFER:33333 
IND. IN MEMORIA DEL BUFFER: 1782 
PRIMI 8 BVTE DEL BUFFER = WS! 
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APPENDICE A 


MAGIC DESK I 


Questo package, realizzato in modo piuttosto divertente, consente di usare i file su 
disco anche senza saper scrivere programmi che li gestiscono. 

Il package risiede su cartridge; dopo l’inserimento, a macchina spenta, quando dai 
corrente compare sul video un menù quadro. Vengono proposte le diverse funzioni 
sotto forma di disegni in piacevoli colori. Per usare il programma è necessario 
inserire un Joystick nella porta 2. I comandi si scelgono usando il Joystick per 
muovere nelle 4 direzioni la mano che compare sul video. Per scegliere una funzione 
si deve toccare con il dito della mano, mobile sul video, l’oggetto che la rappresenta; 
premendo poi il bottone del fuoco la funzione va in esecuzione. 

Il sistema necessario per usare il package in tutte le sue possibilità è composto da: il 
calcolatore, l’unità disco, la stampante, il video e un joystick. 

Per sapere cosa si può fare, basta premere il tasto CBM; compare sul video un menù 
in parte disegnato e in parte descritto. Devi inserire un dischetto nuovo, la prima 
volta che usi il programma, nell’unità 1541. 

Le operazioni possibili sono: 

• Scrivere a macchina usando la tastiera del calcolatore e vedendo sul videe 
quello che si scrive. Il calcolatore si trasforma in una vera macchina da scrivere, con 
attivabili tutte le normali funzioni di tale apparecchiatura. 

• Predisporre l’orologio, che avanza in tempo reale, all’ora che si desidera. 

• Memorizzare i documenti scritti (funzione di archiviazione) in uno dei 3 
cassetti raccoglitori visibili, e in una determinata cartelletta. 
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• Richiamare sul video documenti già archiviati per correggerli, stamparli, e, 
se si vuole, conservarli di nuovo. 

• Se un documento scritto non interessa più, si può buttarlo nel cestino della 
carta straccia. 

Segue un listato di una lettera scritta e stampata con il programma. 
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Lettore del libro 
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APPENDICE B 


CALC RESULT 


È un ottima versione del FOGLIO ELETTRONICO. Viene fornito un manuale 
esauriente, una ROM da inserire nel calcolatore e un dischetto. 

L’utente ha a disposizione sul video una matrice formata da 64 colonne (denomina¬ 
te: a,b,c,...,aa,ab,ac,...,ba,bb,...,bk) e da 254 righe (denominate: 1,2,...,254). In 
realtà sul video è visibile solo una parte di questo grande foglio elettronico, ma, 
servendosi dei tasti di movimento del cursore, si può far comparire la parte che 
interessa della matrice. 

In ogni casella della matrice si può scrivere: 

• una LABEL (descrizione), 

• un numero, 

• una formula di calcolo. 

Ogni casella può essere facilmente modificata; si può definire la larghezza in 
caratteri di ogni colonna della matrice. 

Le formule di calcolo lavorano sulle altre caselle della matrice (che sono le variabi¬ 
li). Sono disponibili anche alcune funzioni definite dal sistema; tra esse MIN, MAX, 
IF...THEN...ELSE, funzioni matematiche e logiche. 

Se si modifica un numero, contenuto in una casella coinvolta in una formula, 
automaticamente viene ricalcolato il risultato. 

Il contenuto di un foglio elettronico può esssere salvato su disco e richiamato 
quando serve; esso può essere stampato tutto o in parte. 

Sono gestibili contemporaneamente più fogli elettronici, fino a 32. E possibile 
costruire un foglio prendendo dati da altri fogli. 

Il video può essere diviso in due parti (finestre) gestibili separatamente. 
Riportiamo un semplicissimo esempio di bilancio familiare su 3 mesi. 
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■il 

GENN. 

FEBEE. 

MARZO 

■«AFFITTO 

300000 

300000 

300000 

■EGITTO 

600000 

650000 

700000 

«ftLIJCE 

r’yyyy 

30000 

90000 

■BGAS 

20000 

15000 

1 8000 

■HTELEF. 

80000 

90000 

100000 

■«AUTO 

100000 

120000 

150000 

■«SCUOLE 

60000 

60000 

60000 

■ 15] 

■il 

01 H 
■C3 
■GJ 

■» 

■«TOTALE 

1230000 

1315000 

1418000 


■H 

■cj 

wm 

■SII 


Il programma si presta a svariate applicazioni come: 

• bilanci, 

• piani di ammortamento, 

• ripartizione di spese, 

• gestione del conto corrente, 

• previsioni finanziarie, 

• stampa di grafici. 

Si possono creare dei modelli di matrice per diverse applicazioni, memorizzarli su 
disco con nomi opportuni e servirsene per lavorare. 

Inoltre è possibile generare dei file di dati di tipo DIF (Data Interchange Format), 
che possono essere utilizzati da altri programmi scritti in BASIC. 


172 



APPENDICE C 


LE BASI DI DATI 


Sono disponibili sul mercato diversi package per la gestione sofisticata di archivi 
(basi di dati). Essi fanno le poche, ma fondamentali, cose, che noi abbiamo trattato 
nei capitoli precedenti, più tante altre. 1 programmi componenti il pacchetto sono 
scritti in ASSEMBLER, quindi la loro velocità di esecuzione non è paragonabile 
con quella dei nostri programmi in BASIC. 

Vogliamo qui citare due package, che abbiamo avuto modo di provare; essi sono: 
SUPERBASE 64 della Precision Software, 

MAGPIE DATABASE, distribuito dalla JCE nella versione italiana. 

Si tratta di due prodotti pregevoli; essi non solo consentono di generare e gestire 
archivi di dati con uno o più indici di ricerca, ma consentono anche di svolgere 
calcoli e di richiamare programmi che operano sui record degli archivi. 

L’utente può predisporre i tracciati dei record dei file, i tracciati dei quadri video e i 
formati dei prospetti da stampare. 

I manuali che accompagnano i programmi sono di notevole mole, e ci vuole un pò 
di tempo per impadronirsi di tutte le possibilità dei package. Si tratta comunque di 
prodotti che possono essere usati anche da persone inesperte di programmazione, 
ma non digiune dei concetti fondamentali inerenti il trattamento dei dati con il 
calcolatore. 
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Questo libro tratta in maniera completa e precisa la gestione dei 
file su cassetta e su disco sul COMMODORE 64. 

Oltre a brevi programmi esempio, riportati per spiegare l’uso 
delle istruzioni, il libro contiene cinque programmi per creare e 
gestire un archivio di dati: 

SEQUENZIALE su cassetta, 

SEQUENZIALE su disco, 

RANDOM su disco, 

RANDOM/USER su disco, 

RELATIVO su disco. 

E’ interessante poter fare dei confronti tra i cinque programmi; 
questo risulta di grande utilità per capire a fondo l’argomento 
trattato. 


Prezzo L. 17.000 


Cod. 40QB ISBN 88-7056-056-2 




GRUPPO 

EDITORIALE 

JACKSON 


o> 

c 

o 

co 





